for (0..$#ratio_list){
    $ratio_list[$_]  *= 10;
}