$folder_present = grep (/^\Q$folder\E$/i, $mk);
print $folder_present #prints zero