# Perl 5
    do{print "$_\n" if /pattern/} for @arr;

##</code><code>##

    # Perl 6
    {print "$_\n" if /pattern/} for @arr;