foreach my $env (keys %ENV){
   if($env =~ /^LC_/i || $env =~ /lang/i){
       print "$env => $ENV{$env}\n";
      }
}