Select Code to Download

#!/usr/bin/perl

...
          'next' => 'two',
          'test' => 'one'
        };

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)