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