sub MidLifeXis_random {
  my $p     = shift;
  my $v     = shift;
  my $check = shift;

  my @lastresults = (0, 0);

  my $try;
  while ($lastresults[1] < $p) {
    my @dict = ( 0 .. 9, 'A' .. 'Z' )[ 0 .. $v - 1];
    $try  = '';

    foreach my $i (1 .. $p) {
      $try .= splice(@dict, int(rand(scalar(@dict))), 1);
    }

    @lastresults = $check->($try);
  }

  $try;
}
[download]