my @sorted_keys = sort { $hash{$a}->{oid} cmp $hash{$b}->{oid} } keys %hash;

##</code><code>##

-- 
#!/usr/bin/perl -w
use strict;$;=
";Jtunsitr pa;ngo;t1h\$e;r. )p.e(r;ls ;h;a;c.k^e;rs 
";$_=$;;do{$..=chop}while(chop);$_=$;;eval$.;