host:volume              available(MB)   %free
Use of uninitialized value in subtraction (-) at freespace line 43.
Use of uninitialized value in subtraction (-) at freespace line 43.
Use of uninitialized value in numeric comparison (<=>) at freespace line 50.
Use of uninitialized value in numeric comparison (<=>) at freespace line 50.
Use of uninitialized value in numeric comparison (<=>) at freespace line 50.
Use of uninitialized value in numeric comparison (<=>) at freespace line 50.
Use of uninitialized value in concatenation (.) or string at freespace line 52.
Use of uninitialized value in concatenation (.) or string at freespace line 52.
Use of uninitialized value in concatenation (.) or string at freespace line 52.
Use of uninitialized value in concatenation (.) or string at freespace line 52.
149.153.130.11:/dev/hda3    10168    80%
149.153.130.11:/dev/hda2    84    90%
1  149.153.130.11:        100%
2  149.153.130.11:        100%
Use of uninitialized value in subtraction (-) at freespace line 43.
Use of uninitialized value in subtraction (-) at freespace line 43.
Use of uninitialized value in numeric comparison (<=>) at freespace line 50.
Use of uninitialized value in numeric comparison (<=>) at freespace line 50.
Use of uninitialized value in numeric comparison (<=>) at freespace line 50.
Use of uninitialized value in numeric comparison (<=>) at freespace line 50.
Use of uninitialized value in concatenation (.) or string at freespace line 52.
Use of uninitialized value in concatenation (.) or string at freespace line 52.
Use of uninitialized value in concatenation (.) or string at freespace line 52.
Use of uninitialized value in concatenation (.) or string at freespace line 52.
149.153.130.23:/dev/hda3    10168    80%
149.153.130.23:/dev/hda2    84    90%
3  149.153.130.23:        100%
4  149.153.130.23:        100% 

##</code><code>##

        @lines = map {
        /(\/\w+\/\w+)\s+\w+\s+\d+\s+\d+\s+(\d+)\s+(\d+)%/;
        {
43                volume => $1,
                available => $2,
                free => 100 - $3,
        }
        } split /\n/, $space{ $host };

        #This is the sorting line!
50      @lines = sort { $b->{available} <=> $a->{available} } @lines;

52      push @out, "$host:$_->{volume}    $_->{available}    $_->{free}%" for @lines;