#!/usr/bin/perl -w
use strict;

my @array = ( { name => "proteobacteriai", 
                size => 30 },
              { phylum => "alphabacteria",  
                size => 50 },
              { name => "cytophaga",   
                size => 10 },
);
for (@array) {
    print "Size (out of order) = ",$_->{size}, "\n";
}

my @newarray = sort { $a->{size} <=> $b->{size} } @array;

for (@newarray) {
    print "Size = ",$_->{size}, "\n";
}