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; }