%voices = {
          'Microsoft Hedda Desktop - German' => 3,
          'Microsoft Haruka Desktop - Japanese' => 4,
          'Microsoft Zira Desktop - English (United States)' => 0,
          'Microsoft Hazel Desktop - English (Great Britain)' => 1,
          'Microsoft David Desktop - English (United States)' => 2,
          'Microsoft Huihui Desktop - Chinese (Simplified)' => 5
        };

##</code><code>##

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

##</code><code>##

%voices = {
          'Microsoft Huihui Desktop - Chinese (Simplified)' => 5
          'Microsoft Haruka Desktop - Japanese' => 4,
          'Microsoft Hedda Desktop - German' => 3,
          'Microsoft David Desktop - English (United States)' => 2,
          'Microsoft Hazel Desktop - English (Great Britain)' => 1,
          'Microsoft Zira Desktop - English (United States)' => 0,
        };