@test=qw(1 2 3 4 5 6); 
testthearray1(\@test); 

sub testthearray1{ 
  (@_ % 2) ? print "uneven\n" : print "even\n"; 
}
[download]

You're passing one thing, all the time. That's always odd (and odd!). Remove the \ in front of @test.

-- Randal L. Schwartz, Perl hacker