.55	0.68	0.39	0.69	0.42	0.43	0.52	0.61	
0.13	0.1	0.09	0.06	0.08	0.12	0.07	0.08	
0.04	0.01	0.13	0.04	0.1	0.07	0.03	0.02	
0.08	0.03	0.11	0.03	0.08	0.05	0.07	0.02

##</code><code>##

1 10 2
1 10 3
1 10 4
1 10 5
1 10 6
1 10 7
1 10 8
etc

##</code><code>##

#! /usr/bin/perl

$combofile = $ARGV[0];

$spectralfile = $ARGV[1];

$diroutput = $ARGV[2];

$without = "spectrawithout";

$txt = ".txt";

open(COMBO, "$combofile") || die "Error: Can't open $combofile: $!\n";

while(<COMBO>)
{

    @combo = split;

    $var1 = $combo[0];
    $var2 = $combo[1];
    $var3 = $combo[2];

    $output = "$without$var1$var2$var3$txt";

    system("chosespectraldata.pl $spectralfile $var1 $var2 $var3 > $diroutput$output");
}

##</code><code>##

#! /usr/bin/perl

$spectralfile = $ARGV[0];
$var1 = $ARGV[1];
$var2 = $ARGV[2];
$var3 = $ARGV[3];

$count = 0;

open(SPEC, "$spectralfile") || die "ERROR: Can't open $spectralfile FILE for reading: $!\n";

foreach my $line (<SPEC>)
{

    chomp $line;

    #@array = split(/\t/,$line);

    @array = split(/\,/,$line);

    for($i = 0; $i<@array; $i++)
    {

	$count = $i++; 

	if(($count != $var1) || ($count !=$var2) || ($count !=$var3))
	{
	    
	    print "$count $var1 $var2 $var3\n";

	    print "$array[$i],\t";
	 
	}
    }
    print "\n";

}