Select Code to Download

my %sequence = (
   1345 => 10,
   123  => 20,
   500  => 30,
);

$sequence{901} = 40;

$sequence{$id} = $score;

print "$_ => $sequence{$_}\n" for sort {$a<=>$b} keys %sequence;