use feature 'say'; foreach my $row (@column) { for (@$row) { say $_ if (defined) } }