Select Code to Download

my @headers = split /\t/, <DATA>;
while ( my $line = <DATA> ) {
...
        split /\t/, $line;
    #  Do whatever it is you want to with this info...
}