Select Code to Download

for my $week ( map { $_->[0] }
               sort { $a->[1] <=> $b->[1] || $a->[2] <=> $b->[2] }
...
             ) {
    # ...
}

for my $key ( keys %IssuesByWeek ) {
    # New key in format of YYYY-MM-DD
    $IssuesByWeek{ get_sunday( $key ) } = delete $IssuesByWeek{ $key }
+;
}

#!/usr/bin/perl
use strict;
...
    }
    return @top;
}