Select Code to Download

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

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

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