Help for this page
#!/usr/bin/perl use warnings; ... $_ ||= 0 for @{$data{$key}}; print "$key @{$data{$key}}\n"; }
a 1 5 1 b 2 0 0 c 3 0 0 d 0 3 0 x 0 0 4