use Data::Dumper; #At the top of the file
...
print Dumper $P;