2011#just#just@just.com#105
2017#home#home@home.com#101
2010#employ#emply@employ.com#109

##</code><code>##

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