Select Code to Download

my $a = qw(0,100);

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

my $PRIMERMAP_open = $Excel->Workbooks->Open("$keyword_folder\\$keywor
+d\_EVO100\\$keyword\-T$a\_PRIMERS_PrimerList.xlsx"); 
my $PRIMERMAP = "$keyword_folder\\$keyword\_EVO100\\$keyword\-T$a\_PRI
+MERS_PrimerList.xlsx";
...

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