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