# 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{$_};
}