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