foreach $rec (@DB){
 	               chomp($rec);
 	             ($number,$name,$email,$xnumber)=split(/\#/,$rec);