if(($count != $var1) || ($count !=$var2) || ($count !=$var3))

##</code><code>##

my $cmd = 
  q#perl -F, -aane 'chomp @F; print join ",\t", @F[ grep(! /^(#
   . "$var1|$var2|$var3"
   . q!)$/, 0..$#F)] ' !
   . " $spectralfile > $diroutput$output ";
warn $cmd;
system( $cmd );

##</code><code>##

perl -F, -lane 'chomp @F; print join ",\t", @F[ grep(! /^(1|10|6)$/, 0..$#F)] ' blah.txt