my $x = (localtime)[0];

##</code><code>##

my $x = (localtime)[2,3,4,0];

##</code><code>##

my ($x) = localtime;

##</code><code>##

my $x = (localtime)