Select Code to Download

@b1 = (1,1,1,4,4);
@b2 = (1,2,3,4,6);

@b1 = (1,1,1,1,2);
@b2 = (3,4,4,4,6);

sub ind {
  $i = shift;
...
    return (\$b2[$i-$#b1-1]) 
  }
}