foreach (sub {pop;shift;@_}->(grep ?start?..?stop?, @data) ) {
    ...
}