C:\test>perl -MO=Deparse,p -e" print (shift @a), (shift @a), "\n";"
print(shift @a), shift @a, \'n';
-e syntax OK

##</code><code>##

print( (shift @a), (shift @a), "\n" );

##</code><code>##

print shift @a, shift @a, "\n";