Why not make a subroutine to print out the %ENV hash so you can see what is really in it? Something like:

print_env {
   foreach $key (keys(%ENV)) {
      print $key, " = ", $ENV{$key}, "\n";
   }
}
[download]