Do you know how to iterate over a perl list?

As the dumper output shows: The output of $VAR1->{'press-release'}->[0]->{'PromoModuleOne'}->[0]->{'RightColoumn'}->[0]->{'Tabs'}->[1]->{'Links'} is a list ref.

So the following

my $list_ref = $VAR1->{'press-release'}->[0]->{'PromoModuleOne'}->[0]-
+>{'RightColoumn'}->[0]->{'Tabs'}->[1]->{'Links'};
foreach my $elem (@$list_ref) {
    print "Element by element", Dumper($elem), "\n";
}
[download]

iterates over the list and you get every element which is by the way also a nested object. But with my solution shown it should be worth of a little transfer to address the child elements in every $elem. If this is not true then you have to learn some basics.

Best regards
McA