print $VAR1->{'press-release'}->[0]->{'PromoModuleTwo'}->[0]->{'RightColoumn'}->[0]->{'Tabs'}->[0]->{'TabName'}->[0], "\n";
print $VAR1->{'press-release'}->[0]->{'PromoModuleTwo'}->[0]->{'RightColoumn'}->[0]->{'Tabs'}->[1]->{'TabName'}->[0], "\n";
print Dumper($VAR1->{'press-release'}->[0]->{'PromoModuleTwo'}->[0]->{'RightColoumn'}->[0]->{'Tabs'}->[0]->{'Links'}), "\n";
print Dumper($VAR1->{'press-release'}->[0]->{'PromoModuleTwo'}->[0]->{'RightColoumn'}->[0]->{'Tabs'}->[1]->{'Links'}), "\n";
print Dumper($VAR1->{'press-release'}->[0]->{'PromoModuleOne'}->[0]->{'RightColoumn'}->[0]->{'Tabs'}->[0]->{'Links'}), "\n";
print Dumper($VAR1->{'press-release'}->[0]->{'PromoModuleOne'}->[0]->{'RightColoumn'}->[0]->{'Tabs'}->[1]->{'Links'}), "\n";