#!/usr/local/bin/perl $p='cca 0.ToYnCt`H=h5s\ 1 |.4e]J>a9ndr6t::0);print map($h{$_},sort{$a<=>$b} keys%h);