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