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

##</code><code>##

do { our $arg0; local *arg0 = \( ++$x         );
     our $arg1; local *arg1 = \( $array[++$x] );
     $arg1 = $arg0;
   }