# Two loops
$N = 2;
$nmatch = $total = 0;
foreach (@list) {
    push @$pvals, $_;
    foreach (@list) {
        push @$pvals, $_;
        match($pvals) and ++$nmatch;
        ++$total;
        pop @$pvals;
    }
    pop @$pvals;
}
show_results($N, $nmatch, $total)