#my ( $arref, $targ ) = @_; # args are array ref, int value
  my ( $targ, $arref ) = @_; # args are: (int, array ref)

##</code><code>##

    my $nextidx = $asize / 2;
    my $nextinc = $nextidx / 2;

##</code><code>##

    my $nextidx = int($asize / 2);
    my $nextinc = int($nextidx / 2); 

##</code><code>##

class Array_with_Hash:

   @the_array = ()
   % the_hash = ();
   init(@a)
 {
    put (a =>> the_array);
   recreate_hash (the_array, the_hash);
 }

  pop(elem):
 {
     array.pop(el)
     update_hash(el);
 }

...