#!perl -w
use strict;
use Data::Dumper;

my @Objs = map { +{num => int rand(500)} } 1..1000;

sub is_sorted {
    my $last;
    for (@_) {
        if (defined $last and $last->{num} > $_->{num}) {
            #print Dumper $last;
            #print Dumper $_;
            return 0
        };
        $last = $_;
    };
    return 1    
};

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

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