Select Code to Download

foreach my $row (@data) {
  push @{$hash{$row->[0]}}, {
...
                  count   =>  $row->[4],
                };
}

%hash = (
          'One' => [
...
                      },
                    ]
        );

foreach my $rep (sort keys %hash) {
  $template->param(
...
                },
          );
}

<workbook>
  <loop name="REP">
...
    </worksheet>
  </loop>
</workbook>