Do you know about Data::Dumper and Data::Dump ?

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

If yes, please try to explain your problem more detailed.