while ( my $line = <$FH> ) {
        next if $line =~ /^#/ || $line !~ /\S/;
        my ( $key, @values ) = split /\t/, $line;
        $hash{ $file }{ $key } = \@values;
    }