Select Code to Download

#!/usr/bin/perl -wl
use strict;
...
    }
    return ($player - $opponent);
}

POP:4:SHIFT:10
Best Score:10

use List::Util qw(shuffle);

...

@numbers = @copy;
my $popscore = checkscore("pop");

POP:4354:SHIFT:7452
Best Score:7452
...
real    0m0.049s
user    0m0.030s
sys     0m0.000s