...
    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;
    }

##</code><code>##

$VAR1 = {
          'bar' => 'val3',
          'baz' => 'val4',
          'foo' => [
                     'val1',
                     'val2'
                   ]
        };

##</code><code>##

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

##</code><code>##

$VAR1 = {
          'bar' => [
                     'val3'
                   ],
          'baz' => [
                     'val4'
                   ],
          'foo' => [
                     'val1',
                     'val2'
                   ]
        };