my %seen = map { $_ => 1 } split //, $string1;