perl -we "@array = qw/one two three/; print @array[1], $/;"