Select Code to Download

use 5.010;

...
say join '|', sort { $hash{$a} <=> $hash{$b} || $a cmp $b } keys %h;
__END__
a|b|c