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