# How to loop through the first layer: What is in @info? print "\$info:\n"; foreach my $info_item (@info) { print " []='$info_item'\n"; }