Array Perl

  1. Home
  2. Perl
  3. Array
  4. Reference negative array index
#!/usr/bin/perl -w
use strict;
print qw(
     January     February     March 
     April       May          June 
     July        August       September
     October     November     December
)[-1];