for( $j=0; $j<@types; $j++ ) {
  print "$types[$j]\t: $counts[$j] \n";
}
print "Total\t: $sum";