if (-e "$ARGV[0].idx") {
        open (INDEXFQ1, "$ARGV[0].idx") or die $!;
    }
    else {
        open (INDEXFQ1, "+>$ARGV[1].idx") or die $!;
        build_index(*FQ1, *INDEXFQ1);
    }