$perl -MData::Dumper -we 'my @a = my ($x,$y,$z) = localtime;print Dumper \@a'

$VAR1 = [
          38,
          27,
          10
        ];
$perl -MData::Dumper -we 'my @a = () = localtime;print Dumper \@a'
$VAR1 = [];

##</code><code>##

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