if (exists $tried{$guess})
  {
     print "\tSkipping $guess - already attempted\n\n";
  }

##</code><code>##

  my @temp_chars;
  for (1 .. $length)
  {
     push @temp_chars, (shuffle(@chars))[0];
  }

##</code><code>##

  my $guess = "@temp_chars";