print OUTPUT "| $newdate | # | % |
\n| ",join (" |
| ", map
{"$_ | $IssuesByWeek{$date}{$_} | ".int(($IssuesByWeek{$date}{$_}/$Weeks{$date})
*100)."\% | " } (sort {$IssuesByWeek{$date}{$b} <=> $IssuesByWeek{$date}{$a} } keys %{$IssuesByWeek{$date}} )[0..4]),"
| TOTAL TI
CKETS | $Weeks{$date} |
MACs |
$MACs{$date} | |
\n";