Why not do this:

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

which does not change the values passed to foo at all?

Celebrate Intellectual Diversity