sub ReadDataInHash {
    my $file=shift;
    open my $fh, '<', $file or die "Can't open `$file': $!\n";
    my %words;
    while (<$fh>) {
        chomp;
        my ($first, @rest)=split;
        $words{$first}{$_}=1 for @rest;
    }
    %words;
}