my $newsecret = join '', map { my $char=$_; $_='' if exists $sec{$_}; $sec{$char}++} split //, $secret;