Select Code to Download

use Algorithm::Loops 'MapCar';

...
    ? MapCar {[@_]} map([split "\n"], @$_)
    : $_
} @AoA;

use Test::More tests => 1;

...
} @AoA;

is_deeply \@results, $desired, "The arrays match!";