Help for this page

Select Code to Download

Select or download this

#! perl
use strict;
...
    print "$_: ", join(', ',  sort { $a cmp $b } @{ $h2{$_} }), "\n";
}

Select or download this

16:29 >perl 819_SoPW.pl
Finland: Helsinki
...
USA: Chicago, New York, Washington

16:31 >