my @z = (
    [ 'a1', 'a2' ],
    [ 'b1', 'b2', 'b3' ]
);
for my $r (@z) { print "@$r\n" }