if ($\$loop ne $NULL) { $hash1{$\$loop} = $\$loop+1 ; }