in reply to Trapping a warning

Don't work so hard.

warn "Empty row ($row->[2])\n" unless defined $row->[0];

In Section Seekers of Perl Wisdom