Select Code to Download

    ...
    my $key = <STDIN>;
...
    } else {
        $hash{$key} = $val;
    }

$VAR1 = {
          'bar' => 'val3',
...
                     'val2'
                   ]
        };

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

$VAR1 = {
          'bar' => [
...
                     'val2'
                   ]
        };