my @ps = map { $_ * 0.2 } 0..5;

for (@ps) { $p[0] = $_;