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