my $lower = lc $str;