my ($n) =  localtime;

##</code><code>##

my $n = (localtime)[-1];

##</code><code>##

(1,2,3,4) != list(1,2,3,4);