my $key = <STDIN>;
chomp($key);
$hash{$key} = [] unless $hash{$key};
my $val = <STDIN>;
chomp($val);
push @{$hash{$key}}, $val;