@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;