Select Code to Download

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

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

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