Select Code to Download

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

foreach $date (reverse sort keys %IssuesByWeek) {
        $counter++;
...
        $date[4] = "0".$date[4] if ($date[4]<10);
        $date[3] = "0".$date[3] if ($date[3]<10);
        $newdate = "$date[4]\/$date[3]\/$year";