for (1 .. 10000) {
    my ($x, $y, $z) = map int rand 20, 1 .. 3;
    my $orig = orig($x, $y, $z);
    my $cmp3 = cmp3($x, $y, $z);
    say "$x $y $z ($orig) [$cmp3]" if $orig ne $cmp3;
}