Select Code to Download

sub method {
  my ($self, $i, $new) = @_;
...
  $self->{B}[$i] = $new if @_ > 2;
  return $old;
}

sub method {
  my ($self, $i, $new) = @_;
...
  $self->{B}[$i] = $new if @_ >= 3;
  return $old;
}