Select Code to Download

        #!/usr/local/bin/perl
        
...
            }
        }

        for my $source (sort {$data{$b}{$all} <=> $data{$a}{$all}} key
+s %data)
        {    
...
            }
        }