I've added the following:

print "\n------------\n";
print join "\n",split /\t/, $hash{$key}, 7;
[download]

This has produced the following output:

------------
spam
20120625T115711
14359
 Time Attendance Software <rasputin@gustyhelp.info>
drape@gustyhelp.info
 Track employee time and attendance
11.034
------------
spam
20120627T054428
119032
"CriminalJustice Education" <CollegePrograms@birdddeals.com>
CollegePrograms@birdddeals.com
 Succeed in a Criminal Justice program
[download]

========

It may not be clear from the second example, but it only has six fields, where the seventh is blank. It is that condition I'm trying to manage with split and keep it from choking.

It looks like the last value is null, which must be the type of thing that's choking the split from my example.

When the database was written, it appears undef'd values were used in some fields where there was no data available.

Is there another way to split the tab-delimited line other than split() that won't choke?