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