%h <== [0,1] <== map { $_, %h{$_} } <== sort { $a<==>$b } <== keys <== %h;