Help for this page
use warnings; use strict; ... } print $_,',',join (',' => @{$hash{$_}}),$/ for sort keys %hash;
#!/usr/bin/perl use warnings; ... abc,8,2,1,3,1,4 def,8,9,4,5,6 def,5,6,2,1