Select Code to Download

foreach $element( keys %count ) {
    $name = $element;
...
    
print "@$_\n" for @referrers;
print "@$_\n" for @sorted_referrers;

foreach my $referrer (@referrers) {
    print "$@referrer\n";
}

foreach my $referrer (@referrers) {
    print $referrer->[0] . "|" . $$referrer[1] . "|" . $referrer->[2] 
+. "\n";
}

foreach my $referrer (@referrers) {
    print join "|", $@referrer;
}