Mega Code Archive

 

Categories / Perl / Array

 

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];