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