my $sum= map {(1)x$_} @counts; # Just say "No" to this code (: