foreach my $empnum(sort keys %empwork)
{
 my $periods=0;
 $periods++;
 my $hours = 0;
 $hours += $empwork{$empnum};