foreach $month (@array) {
   print "$month\n";
}