Array Perl

  1. Home
  2. Perl
  3. Array
  4. Directly indexing an arrays contents
#!/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";
}