Select Code to Download

$some_object->one_method->other_method( [map { ... } map {...} @$sourc
+e_aref] )

$some_object->one_method->other_method( [
   map {
...
      ...
   } @$source_aref
]);

use subs qw(
    fribble_aref
...
sub frobble_aref {
    return [map { ... } @{+shift}];
}