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