I would naively suggest glob, but for your example, it eats up memory, and probably doesn't finish:

#!/usr/bin/env perl

use strict;
use warnings;

# dummy values for @p, to get the last values not in a loop
my @p = 0..12;

# a single value
# (this can be generalized, as parameters to a function to generate th
+is string)
my $glob_token = '{0.0,0.2,0.4,0.6,0.8,1.0}';

# join into multiple value string
# (must use non-whitespace, as the builtin glob treats whitespace spec
+ial)
my $glob_parm = join(",", ($glob_token) x 11);

# Loop fork
for my $parm_list (glob($glob_parm)) {
    # now fix the commas
    $parm_list =~ s/,/\t/g;
    my $temp_out = "$parm_list\t$p[11]\t$p[12]\n";
    print $temp_out;
}
[download]

A similar solution using permutations a combination iterator would work. I'll have to see if I can find my array-of-arrays permutation iterator.

Update: This node on this thread should help.