my $i = $#pick; $i-- or return while ( $pick[$i]++ == @$arr - $num + $i );