Select Code to Download

my %index = (firstname => 0,
             lastname  => 1,
...

print "First name (from array1): $array1[ $index{firstname} ]\n";
print "Address    (from array2): $array2[ $index{address}   ]\n";

use constant { FIRSTNAME => 0,
               LASTNAME  => 1,
...

print "First name (from array1): $array1[ FIRSTNAME ]\n";
print "Address    (from array2): $array2[ ADDRESS   ]\n";