my @SRV = ( 'zumen530n.pdg.duranto.com', 'zumen531n.pdg.duranto.com', 'zumen532n.pdg.duranto.com', # etc ); print "$_ $SRV[ $_ ]\n" for 0 .. $#SRV;