use Data::Dumper;
print(Dumper($data));