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