Select Code to Download

#!/usr/bin/perl -w
use strict;
...
for (@newarray) {
    print "Size = ",$_->{size}, "\n";
}

C:\Code>perl sort_aoh.pl
Size (out of order) = 30
...
size = 10
size = 30
size = 50