$ perl -Mstrict -Mwarnings -E '
> sub blah { my $z = 0; [ grep { /3/ and $z = 1; $z } @_ ] }
> my @x = (0 .. 10);
> say qq{@{blah(@x)}};
> my @y = qw{a b c 3 d e f};
> say qq{@{blah(@y)}};
> '
3 4 5 6 7 8 9 10
3 d e f