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