$ perl -Mstrict -Mwarnings -E 'my @x = (1,2,3); say STDOUT (@x)[1]'
2