perl scripts used in earray design