my @fields = (
    'FIRSTNAME',
    'LASTNAME',
    'PHONE',
    'FAX',
    'CITY',
    'STATE',
);

##</code><code>##

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