# I will write a working one of these for testing,
# unless someone beats me to it.  For testing purposes,
# it should just need to record the number of times it
# is called, and calculate pico and fermi.
sub check_solution {
    # Update statistics
    # ...
    # Determine $pico and $fermi here
    # ...
    return ($picocount, $fermicount);
}

# Setup record keeping
# ...
# Choose number to pose to your_solution
# ...
# Launch individual solution
$solution = your_solution( $p, $v, sub { check_solution(@_) } );

# Check statistics and record
# ...