Faster way to do this comparison of string in perl for foreign charsets

Question

I have the following code which works well:

            foreach my $type (qw/Arabic Armenian Bengali Bopomofo Braille Buhid Canadian_Aboriginal Cherokee Cyril