perl -e "@m=('hal', 'bob', 'didi'); sub foo {substr(@_[-1],-1) }; print &foo(@m);  print qq(\n@m);"