or download this
my ($month, $num, @data, $date, $hours, $name, %total, $ttlevnts, %hou
+rsWorked, $ttlhrsbottum, $ttlhrsbudrow, $ttlhrscaptan, $ttlhrshughes,
+ $ttlhrsmarchand);
my ($ttlhrsmedina, $ttlhrsnewbrough, $ttlhrsrico, $ttlhrsshelton, $ttl
+hrssweredoski, $ttlhrstryon, $ttlhrswerner, $ttlhrswilliamspearce);