my @counts = map s/.*\n//r =~ tr/A-Z//, @array;
print "counts: @counts\n";