my $sc = scalar(%messagerecbin); &writelog(1,"Message rec bin = $sc "); foreach my $file (keys %messagerecbin) { if($debug){&writelog(1,"DEBUG: sqlloader_rt: receive Messagebin{$file} message: Loading sql below.");} }