Select Code to Download

%language = (English => 'en', German => 'de', French => 'fr');

foreach my $key (sort {$a cmp $b} keys %language) {
   print "$key has '$language{$key}' as the ANSI value\n";
}