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

##</code><code>##

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

##</code><code>##

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