my $keyword_EVO100 = "${path}Output/$keyword_EVO100";
my $keyword_folder = "${path}Output/${keyword}_${initial}_$i";

foreach my $suffix (0..100) {
    my $PRIMERMAP = "$keyword_folder/${$keyword}_EVO100/$keyword-T${suffix}_PRIMERS_Primerlist.xlsx";
    if (! -e $PRIMERMAP) {
        print "Primer list file is missing. Please make sure file is in correct folder!\n";
        print "Press <ENTER> to exit.\n";
        <>;
        exit(1);
    }
    $my $PRIMERMAP_OPEN = $Excel->Workbooks->Open("$keyword_folder/${keyword}_EVO100/$keyword-T${suffix}_PRIMERS_PrimerList.xlsx");
    $PRIMERMAP_open->PrintOut;
    $PRIMERMAP_open->close;
}