@small = do {my $i; grep {$_ eq $small [0] .. ++ $i == @small} @numbers};