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