#!/usr/bin/env perl
use strict;
use warnings;

my $AoA = [ [qw/a b/], [qw/c d/] ];
my $out = '';

foreach my $aref (@$AoA) {
    $out = "@$aref\n";
}

print $out; # only prints "c d", of course