foreach $element( keys %count ) {
    $name = $element;
    push @referrers, [ $element, $name, $count ];
}

my @sorted_referrers = sort { $a->[2] cmp $b->[2] } @referrers;
    
print "@$_\n" for @referrers;
print "@$_\n" for @sorted_referrers;

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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