my @list = (
    ["Barney", "Rubble"],
    ["Fred", "Flintstone"],
    ["Betty", "Rubble"],
    ["Wilma", "Flintstone"]
);

map {
    say "Outer map before: @$_";
    map { 1 } @$_;
    say "Outer map after : @$_";
} @list;