That code doesn't do the same.

    #!/opt/perl/bin/perl -wl

    use strict;

    my @data = qw /foo start bar baz stop qux
                   start quux stop fuzzle/;

    foreach (grep /start/ .. /stop/, @data) {
        next if /start/ || /stop/;
        print
    }

    print "----";

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

    __END__
    bar
    baz
    quux
    ----
    bar
    baz
    stop
    start
    quux
[download]

You are losing the boundaries of the flip-flop operator, and use the boundaries of grep. But those boundary events are not necessarely the same.

-- Abigail