Select Code to Download

$s = 123;
$s = 456;
...
$h{foo} = 123;
$h{foo} = 456;
print "$h{foo}\n";  # 456

push @{ $h{$k} }, 123;
push @{ $h{$k} }, 456;
print "$_\n" for @{ $h{$k} };  # 123, 456