Help for this page

Select Code to Download

Select or download this

use Data::Dump 'pp'; # a nicer Data::Dumper

...
pp \%hash;
__END__
{ blue => [2], red => [1, 3] }

Select or download this

push @{$hash{$keys[$_]}}, $vals[$_]
  for 0..$#keys;