#!/usr/local/bin/perl -w my @months = qw (JUNK Jan Feb March April May June July Aug Sept Oct Nov Dec); for ($x=0; $x <= $#months; $x++) { print "Index[$x] = $months[$x]\n"; }