Select Code to Download

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";
}