johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -E '
say sub { shift }->( 1, 3, 5, 7, 9 );'
1
johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -E 'say pop' a b c
c
johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -E 'say shift' a b c
a