use warnings;
use strict;

my @AoA = (
         [ "fred", "barney" ],
         [ "george", "jane", ],
         [ "homer", "marge", ]
);

for my $aref (@AoA) {
    print $aref->[1], ' ';
}
print "\n";

__END__

barney jane marge