Select Code to Download

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

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

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

class Array_with_Hash:

...
 }

...