use Data::Dumper;

print Dumper \$data;