use strict;
use warnings;

my @vals = qw( 0.0 0.2 0.4 0.6 0.8 1.0 );

sub proc {
  for my $a ( @vals ) {
  for my $b ( @vals ) {
  for my $c ( @vals ) {
  for my $d ( @vals ) {
  for my $e ( @vals ) {
  for my $f ( @vals ) {
  for my $g ( @vals ) {
  for my $h ( @vals ) {
  for my $i ( @vals ) {
  for my $j ( @vals ) {
  for my $k ( @vals ) {
    print "$a\t$b\t$c\t$d\t$e\t$f\t$g\t$h\t$i\t$j\t$k\t1\t1\n";
  }}}}}}}}}}}
}

proc();