Select Code to Download

my %data = (
   c => 3,
...
for my $key (sort { $data{$a} <=> $data{$b} } keys %data) {
   print "$key : $data{$key}\n";
}