while (local $_ = match('a')) {
        print "- $_\n";
    }

##</code><code>##

    print "- $_\n" for grep {/a/} @data;