foreach my $row (@$rows) { foreach my $val (@$row) { print "$val\n"; } }