Select Code to Download

my @data;
while ($running) {
...
...
        @data = split /\n/, $rawdata;
    }

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

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