Statement Perl

#!c:/perl/bin
@alphabet = (a..z);
for($loopcount=0; $loopcount<27; $loopcount++)
    {
        print "@alphabet[$loopcount] \n";
    }