do { local @_;
     alias $_[0] = ++$x;          # Aliases to $x
     alias $_[1] = $array[++$x];
     $_[1] = $_[0]
   };