&outputHeader(*REPORT_HANDLE,$worksheet{$criterion},$reportPath,$criterion,"all");
&outputHeader(*REPORT_HANDLE,$worksheet{$group},$reportPath,$criterion,$group);

##</code><code>##

sub outputHeader {
  my $reportHandle = $_[0];
  my $reportPath = $_[1];
  my $group = $_[2];
  my $criterion = $_[3];
  my $worksheet = shift;
  ...