# ... and who could forget King Richard's disturbing one-liner:

#! perl

use strict;
use Data::Dumper;

my $hemi = 'S';
our $discontent = {
  months => [ qw/ J F M A M J J A S O N D / ]
};
my @now = @{$discontent->{months}}[$hemi eq 'N' ? (11,0,1) : (5,6,7)];
print Dumper(\@now);

# Obviously, Shakespearean English is much more concise than Perl...