##
$foo{NAME1}{3}
##
##
sub OpenFF {
my($file, $dlmt) = @_;
$dlmt = "\t" unless defined $dlmt;
my $hash = {};
open READ, $file or return;
chomp(my $head = );
my @headers = split $dlmt, $head;
while () {
chomp;
my @columns = split $dlmt;
@{$hash->{$columns[0]}}{@headers} = @columns;
}
close READ;
return $hash;
}