@_ = (@{$_ = [qw{emacs vi}]}, reverse @$_);
print "Why do we have to hide from the police, daddy ? Because they use ", shift @_, " and we use ", shift @_, ", son.\n" while(@_);

##</code><code>##

@_ = (@{$_ = [qw{emacs vi}]}, reverse @$_);
print "Why do we have to hide from the police, daddy ? Because they use ", shift, " and we use ", shift, ", son.\n" while(@_);