Help for this page
#!/usr/local/bin/perl ... } }
for my $source (sort {$data{$b}{$all} <=> $data{$a}{$all}} key +s %data) { ... } }