@struct = ( { foo => 'bar'},
            [ 1,2,3 ],
            4,5,6
          );
use Data::Dumper;
for $i (0..3) {
    $Data::Dumper::Indent = $i;
    print Dumper(\@struct),"\n\n";
}
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print