Hi! This variant of count_frequencies works much faster than original:

sub count_frequencies {
    my (@strings) = @_;

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

    return $frequencies;
}
[download]