Help for this page
print $VAR1->{'bgp-information'}->{'bgp-peer'}->[0]->{'peer-address'}, +"\n";
1.1.1.1
for (@{$VAR1->{'bgp-information'}->{'bgp-peer'}}){ print $_->{'peer-address'},"\n"; }
1.1.1.1 2.2.2.2 3.3.3.3