print DATAFILEOUT join( '|', @userinfo{qw( 
    company_name time email member1  member1phone  data
    expiretime   pictureurl password website    member2
    member2phone address    citystatezip fax catlisting
 )}, "\n";