print qq{ERROR REPORT\n\n}, 
    qq{Error message\tOccurrances\n\tLines found on\n\n};
  foreach my $k (sort keys %errors) {
    print $k, qq{\t}, $errors{$k}{count}, qq{\n}, 
      qq{\t}, join(q{,}, @{$errors{$k}{linenumber}}), qq{\n};
  }