I am surprised that nobody used the fact that negative subscripts work:

@a = qw(emacs vi);
print "Why do we have to hide from the police, daddy ?
  Because they use $a[$_] and we use $a[$_-1], son.
" for 0..1;
[download]