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