return grep defined, delete @{{map {$_ => $_} split //, $str1}}{split //, $str2};