sub OpenFF { my %hash; my ($file,$dlmt) = @_; $dlmt = "\t" if ! $_[1]; open(READ,$file) or return(0); my @file = ; chomp(@file); close(READ); my @headers = split($dlmt,shift(@file)); foreach my $line (@file) { my $x = 0; my @columns = split($dlmt,$line); while ($x < scalar @headers) { $hash{$headers[$x++]}{$columns[0]} = $columns[$x]; } } return(%hash); }