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