Did you get any output besides the error? And which line is line 224?

Hi, Line 224 is the while (($key,$value ........ & the script output the SOR message, the "Processing ISWTEST message & the EOR message if I remove the use strict. The while ($key.... is not actioned, I put a toytown display in their and it never appeared. If I leave the use strict in I get

<***** SOR ACC_ORACLE_ENV *****>

Processing ISWTEST Environment.
Can't use string ("ISWTEST") as a HASH ref while "strict refs" in use at xxrc_new_profile.pl line 224.

It would seem that this is the piece of offending code but I still can't see why -


while (($key,$value) = each %$DB_name) {
   print "\tKey   :: $key\n" ;
   print "\tValue :: $value\n" ;
}
[download]

Cheers, Ronnie