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