i actually prefer the following:

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