use Data::Dumper;
...
print Dumper($element), "\n";