#Perl 5:

if ( $i > 0 && $i < 5 ) {

if ( $string eq 'foo' or $string eq 'bar' ) {

use List::Util;
my $n = reduce { $a * $b } @A;

$foo->bar;

#Perl 6:

if 0 < $i < 5 {

if $string eq 'foo' | 'bar' {

my $n = [*] @A;

$foo.bar;