while ( <FILE> ) {
    my ( $key, $value ) = split;

    $hash{ $key }{ $value } = ();
}
print Dumper \%hash;