lanx@nc10-ubuntu:~$ perl use Data::Dump qw/pp/; $x=[1,2,3]; pp $x; pp $a; __END__ [1, 2, 3] undef