{
    my $x = shift;
    my %list1=();
    while (my $line =<$x>) {
        chomp $line;
        my @arr=split /\s/,$line;
        for (my $i=0;$i<=$#arr ;$i++) {
            if ($i==0) {
                $list1{$arr[$i]}={};
            }
            else{
                ${%{$list1{$arr[0]}}}{$arr[$i]} = 1;
            }
        }
    }
    return {%list1};
}