sub perl_mod { 
  for my $z (1..10_000) { 
    $_[0] % 2; 
  } 
} 
 
sub perl_and { 
  for my $z (1..10_000) { 
    $_[0] & 1; 
  } 
} 
 
timethese(10_000, { 
                       perl_mod => sub { perl_mod($num) }, 
                       perl_and => sub { perl_and($num) }, 
                      });