Select Code to Download

my $a = qw(0,100);
print $a, "\n";  # prints the string '0,100'

my $keyword_EVO100 = "${path}Output/$keyword_EVO100";
my $keyword_folder = "${path}Output/${keyword}_${initial}_$i";
...
    $PRIMERMAP_open->PrintOut;
    $PRIMERMAP_open->close;
}