for (0..5) { $p[0] = $_*0.2;