@a = ("A","B","C"); print "Content-type:text/html\n\n"; print ""; print map("",@a); print "
$_
";