open STDOUT,">test.xls"; print <<; for $y(1..9){ print ""; for $x(A..Z){ print "
$x$y"; } print "\n"; } print <<;
exit;