for my $file (glob "*$vokal*.TextGrid") {
   ...
}