Cheers - L~R

i didnt understand what the

while <DATA>
[download]

part was at...
i just didnt understand to put it in the loop where i splitting lines or after it..

Anonymous Monk,
I do not have the real data that you have, so I improvised using the small snippet you provided. You also have not done an adequete job explaining your problem. I am going to do something Abigail would frown on and guess.
• You have a list of hosts that you are processing
• Each host involves a system command to see free disk space
• The string with imbedded newlines containing the output is stored in a hash where the key is the host
• When displaying the hosts disk free, you want the string sorted by a substring.
If that is an accurate guess, you would modify my original code to look something like the following:

for my $host ( keys %space ) {
    my @data;
    for ( split /\n/ , $space{$host} ) {
        next if /^host:volume/;
        my @field = $_ =~ /^([^:]+):([^\s]+)\s+(\d+)\s+(\d+)/;
        push @data, \@field;
    }
    for ( sort { $data[$a]->[2] <=> $data[$b]->[2] } 0 .. $#data ) {
        print join "\t" , @{ $data[$_] };
        print "\n";
    }
}
[download]

Now we are not mind readers and we do not have crystal balls. You are going to need to apply these techniques to your own code and modify accordingly. It would be nearly impossible to give you full blown working code with what little you have provided.

Cheers - L~R