Select Code to Download

#!perl -w
use strict;
...

@Objs = sort { $a->{num} <=> $b->{num} } @Objs;
print "Sorted in-place\t",is_sorted(@Objs),"\n";