$perl -MData::Dumper -we 'my @a = my (undef,$y,$z) = localtime
;print Dumper \@a'
$VAR1 = [
          49,
          32,
          10
        ];