while (<$dict_fh>) {
    $_ = lc($_);
    tr/a-z//cd;
    # ...
}