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

##</code><code>##

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