use autouse Data::Dumper => qw(Dumper);
...
# warn Dumper $complex_structure;