Help for this page
print "AA,##,##,DD,EE,##\nAA,BB,CC,##,##,FF\n" # ;-)
#!/usr/local/bin/perl -w use strict; ... print "\n"; print join(',',@tmp2); print "\n";