Help for this page

Select Code to Download

Select or download this

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