perl -MData::Dumper -lwe 'my ( @x, @y, @z ) = ("z", "y", "z"); print Dumper(\(@x,@y,@z))'
$VAR1 = [
          'z',
          'y',
          'z'
        ];
$VAR2 = [];
$VAR3 = [];