perl -e "@m-(1,2,3);print $m[-1]"