perl -wMData::Dumper -E'$x=[];push $x,1;say Dumper $x'
$VAR1 = [
          1
        ];