print DATAFILEOUT "$company_name|$time|$email|$member1|$member1phone|$data|$expiretime|$pictureurl|$password|$website|$member2|$member2phone|$address|$citystatezip|$fax|$catlisting\n";

##</code><code>##

print DATAFILEOUT @temp;

##</code><code>##

for (1 .. $#temp) {
   print DATAFILEOUT $temp[$_];
}


##</code><code>##

my $temp_length = @temp;
for my $current_array_index ( 1 .. ($temp_length - 1) ){
  print DATAFILEOUT $temp[$current_array_index];
}