for my $week ( map { $_->[0] }
               sort { $a->[1] <=> $b->[1] || $a->[2] <=> $b->[2] }
               map { [$_, split /\./] } keys %IssuesByWeek
             ) {
    # ...
}