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