Hi, You can assing one empty array to each key element and push the values in that array.

like this

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