foreach (@result)
{
    my %seen;
    $seen{$_}++ for (split //,lc $_);

    my $no_print = 0;
    foreach (keys %seen)
    {
        $no_print++ if ($seen{$_} > $master_letter_freq{$_});
    }

    print "$_\n" unless $no_print;
}