Try:

print qw(1 2 3)[0]
[download]

under 5.005 and 5.6.

I presume you mean "try" as in "note that it won't even compile under 5.5".

-- Randal L. Schwartz, Perl hacker