in reply to Re^2: assigning arrays as values to keys of hash
in thread assigning arrays as values to keys of hash

my %unique;

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

    $hash{ $key }{ $value } = ();
}
$_ = [ keys %$_ ] for values %hash;

print Dumper \%hash;

[download]

In Section Seekers of Perl Wisdom