Help for this page
use strict; use warnings; ... print "$a compared with $b\n"; }
use strict; use warnings; ... foreach my $address ( keys %addresses ) { print "$address: appears on " . join (', ', @{$addresses{$address} +}) . "\n"; }