Select Code to Download

$ perl -E'for (my $i=0; $i<10; $i+=1) { say $i }' | wc -l
10

$ perl -E'for (my $i=0; $i<1; $i+=0.1) { say $i }' | wc -l
11

for ($p[0]=0; $p[0]<=1; $p[0]+=0.2){

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

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

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

use Algorithm::Loops qw( NestedLoops );

...
   my $temp_out = join("\t", @p, 1, 1)."\n";
   ...
}