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

  my @lastresults = (0, 0);

  my $try;
  while ($lastresults[1] < $p) {

    #...

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

use strict;
use warnings;
{
  my $solution = '';
  my $p = 0;
  my $v = 0;

  my $counter = 0;

  sub reset_counter {
    $counter = 0;
  }

  sub inc_counter {
    $counter++;
  }

  sub get_counter {
    $counter;
  }

  sub setup_game {
    $p        = shift;
    $v        = shift;
    $solution = shift;
  }

  sub get_places {
    return $p;
  }

  sub get_dictsize {
    return $v;
  }

  # Very simple check function
  #
  # In particular, this does not check if characters are repeated,
  # characters are in the proper alphabet, nor does it handle any
  # timing of results.
  sub check_solution {
    my $try = shift;

    my ($pico, $fermi) = (0,0);
    inc_counter();

    foreach my $i (0 .. $p-1) {
      foreach my $j (0 .. $p-1) {
    if (substr($try,$i,1) eq substr($solution,$j,1)) {
      if ($i == $j) {
        $fermi++;
      }
      else {
        $pico++;
      }
    }
      }
    }
    ($pico, $fermi);
  }
}


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

  my @lastresults = (0, 0);

  my $try;
  while ($lastresults[1] < $p) {
    # ...

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

  $try;
}

my $solutions = {
         yoursubhere => sub { yoursubhere(@_) },
        };

my @games = (
         { p => 2, v => 36, sol => 'PM' },
         { p => 4, v => 36, sol => 'JAPH' },
        );

foreach my $game (@games) {
  setup_game($game->{p}, $game->{v}, $game->{sol});

  foreach my $solutionname (sort keys %$solutions) {
    my $solution = $solutions->{$solutionname};

    reset_counter;

    print join(":",
           $solutionname,
           get_places,
           get_dictsize,
           $solution->(get_places,
               get_dictsize,
               sub { check_solution(@_) },
              ),
           get_counter,
          ), "\n";
  }
}
[download]