my @foo = qw /foo bar baz quux/;
$[ = 2;
print $foo[2], "\n";
print $foo[1], "\n";
print $foo[0], "\n";
__END__
foo
quux
foo