push @servers, { server => 'foobar47', 
                 pctused => $pctused, 
                 volname => $volname, 
                 volfree => $volfree  
               } 
    if $pctused > $LIMIT;

##</code><code>##

my @sorted = sort { $a->{pctused} <=> $b->{pctused} } @servers;

##</code><code>##

my @sorted_server_names = 
    map { $_->[1] }
        sort { $a->[0] <=> $b-><[0]
            map { [ $srvlist{$_}{pctused}, $_ ] }
                keys %srvlist