Select Code to Download

sub aindex (\@$;$) {
  my ($aref, $val, $pos) = @_;
...
print " ", raindex @l, 'you', 5;

# output:  1 8 8 1