I open the file here...
 	     foreach $rec (@DB){
 	               chomp($rec);
 	             ($num,$name,$email,$xnumber)=split(/\#/,$rec);