#!c:/perl/bin$title = "This is a title";@things=('F', 16, 5.2, $title);for($loopcount=0; $loopcount<4; $loopcount++){ print " (@things[$loopcount]) \n";}