splice @tied_metafile, $i, 1 if $tied_metafile[$i] =~ /\Q$mark1\E/;