Select Code to Download

my @fields = (
    'FIRSTNAME',
...
    'CITY',
    'STATE',
);

@record{@fields} = (split(/\t/, $_))[0,1,2,6,8,9];