foreach my $week (sort keys %IssuesByWeek) {
        print "$week:\n\t",join ("\n\t", map{"$_ => $IssuesByWeek{$week}{$_}" } (sort {$IssuesByWeek{$week}{$b} <=> $IssuesByWeek{$week}{$a} } keys %{$IssuesB
yWeek{$week}} )[0..4]),"\n"
}