# Populate list with 10 mio numbers
for (my $i=0; $i<1000_000; $i++) {
    push @results, $i;
}