Statement Perl

#!c:/perl/bin
@months=(1..12);
for($loopcount=0; $loopcount<13; $loopcount++)
{
        print "@months[$loopcount] \n";
}