Select Code to Download

my @head = split /\t/, <$fh>;
my $ref = {};
...
  @{$ref}{@head} = split /\t/;
  # do something with the data here
}