Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- values= [sort {$a<=>$b and $orig->{$a} cmp $orig->{$b}} keys %$orig]
- values= [sort {if ($a eq 'somevalue') { return 1; }
- elsif ($b eq 'somevalue') { return -1; }
- else { return {$a<=>$b and $orig->{$a} cmp $orig->{$b}} keys %$orig ;} }]
Add Comment
Please, Sign In to add comment