my %sec;
my $newsecret;
for my $char (split //, $secret){
  next if exists $sec{$char};
  $newsecret .= $char;
  $sec{$char}++;
}