perl -e 'print @{[split //,ref(\$.)]}[-1,-2,0,1,-2,-3]'