my @array = (1,2,3,4,5);

Benchmark::cmpthese(-1, {
        '& 1'        =>  sub { my $val = 1 if @array & 1; },
        'modulo 2'   =>  sub { my $val = 1 if @array % 2; },
});

              Rate modulo 2      & 1
modulo 2 3113701/s       --      -9%
& 1      3429921/s      10%       --