Select Code to Download

# Untested, but should work
use 5.6.0;
...
1;

__END__

use FieldStorage;

...

my %records;
@records{@fieldNames} = (split(/\t/, $_))[@fieldIndices];