#! /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";

}