Select Code to Download

my @test=qw(1 2 3 4 5 6);
(@test % 2) ? print "uneven\n" : print "even\n";
print "end\n";

@test=qw(1 2 3 4 5 6);
testthearray1(\@test);
...
sub testthearray2{
(@_ % 2) ? print "uneven\n" : print "even\n";
}