foreach my $obj (sort { $a->price <=> $b->price } @ArObj) {
...
}