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

##</code><code>##

my @header = qw(fn ln age);

##</code><code>##

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