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


##</code><code>##

my %h = (
  1 => 'foo',
  2 => 'bar',
  3 => 'baz',
  4 => 'quux',
);