my @data;
while ($running) {
    my $nfound = select $rfds, $wfds, $efds, 0;
...
        @data = split /\n/, $rawdata;
    }

##</code><code>##

    foreach (@data,) {
...
        push @data, [ $name, $rrate, $wrate, $total ]; ###!!!!!!!!!!!!!!!!!!
        }
    }

##</code><code>##

    my @sorted_data = sort { $a->[3] <=> $b->[3] } @data;