I believe your exact question was asked and answered in the previous post. Check the answers there and beware of the NodeReaper! :)

# to repeat Meraxes
foreach (@array) {
   $seen_hash{$_}++;
}

# then just do a print for each key in the %seen_hash hash
print "Content-type: text/html\n\n";   # viewable in browser
foreach (keys %seen_hash) {
   print $seen_hash{$_};
}
[download]