use List::Util qw<first>;
my $language='English';
my $voice = $voices{ ( first { m/$language/ } keys %voices ) || '' };