Select Code to Download

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";
}