print TEXTWRITE " $firstname"; 
print TEXTWRITE ",";