Select Code to Download

chomp($headerline = <INFILE>);
my @header = split(/\t/,$headerline);

my @header = qw(fn ln age);

while( <INFILE>) {
  chomp;
...
  my @columns = split(/\t/,$_);
  push @a, { map { $header[$c++] => $_ } @columns };
}