Statement Perl

#!c:/perl/bin
@letters = (aa..dd);
for($loopcount=0; $loopcount<82; $loopcount++)
{
        print " (@letters[$loopcount]) ";
}