my $a = qw(0,100);

$keyword_EVO100 = "$path"."Output\\$keyword_EVO100";
$keyword_folder = "$path"."Output\\$keyword\_$initial\_$i";

##</code><code>##

my $PRIMERMAP_open = $Excel->Workbooks->Open("$keyword_folder\\$keyword\_EVO100\\$keyword\-T$a\_PRIMERS_PrimerList.xlsx"); 
my $PRIMERMAP = "$keyword_folder\\$keyword\_EVO100\\$keyword\-T$a\_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); 
} 

$PRIMERMAP_open->PrintOut;
$PRIMERMAP_open->close;