Select Code to Download

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

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

my $periods=0;
my $hours = 0;
...
{
 $periods++;
 $hours += $empwork{$empnum};