Help for this page
my %hash; while (<IN>) { chomp; ... print OUT join ', ', $_, @{$hash{$_}}; print OUT $/; }