$[=-1;
@_=qw/foo bar baz/;
print $_[-1]; # foo
print $_[-2]; # bar
print $_[-3]; # foo