my $a = qw(0,100);

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