my ($month, $num, @data, $date, $hours, $name, %total, $ttlevnts, %hoursWorked, $ttlhrsbottum...etc);


##</code><code>##

my ($month, $num, @data, $date, $hours, $name, %total, $ttlevnts, %hoursWorked, $ttlhrsbottum, $ttlhrsbudrow, $ttlhrscaptan, $ttlhrshughes, $ttlhrsmarchand);
my ($ttlhrsmedina, $ttlhrsnewbrough, $ttlhrsrico, $ttlhrsshelton, $ttlhrssweredoski, $ttlhrstryon, $ttlhrswerner, $ttlhrswilliamspearce);