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

##</code><code>##

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