foreach my $key ( keys %ENV ) {
  $ENV{ uc $key } = $ENV{$key};
}