use strict;
use warnings;

open FILE, $my_file or die "Can't open $my_file\n";
my %hash;
while (<FILE>) {
  my ($name, $code) = split(/\t/);
 
}