use subs qw(
    fribble_aref
    frobble_aref
);

my $results_aref =
  fribble_aref
    frobble_aref
      $source_aref
;
my $other_object = $some_object->one_method;
$other_object->other_method( $results_aref );

sub fribble_aref {
    return [map { ... } @{+shift}];
}

sub frobble_aref {
    return [map { ... } @{+shift}];
}