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