# vorher
sub A {
  return shift->B(@_, ...);
}

# nachher
sub A {
  my @array = shift->B(@_, ...);
  return wantarray ? @array : \@array;
}