Help for this page
#!/usr/bin/perl use strict; ... foreach (keys %{$hoa}) { print "\t'$_' => [" . join(',', @{$hoa->{$_}}) . "],\n"; }
'c' => [2,0], 'a' => [1,2], 'b' => [1,3],