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