sub count_frequencies { my (@strings) = @_; my $frequencies = (); for (@strings) { foreach my $i (0..length($_)-1) { $frequencies->{substr($_, $i,1)}++; } } return $frequencies; }