#The line:
while ( defined ($_ =  <CONFIG>) )

#can be simplified to:
while(<CONFIG>)