print $VAR1->{'bgp-information'}->{'bgp-peer'}->[0]->{'peer-address'},"\n";

##</code><code>##

1.1.1.1

##</code><code>##

for (@{$VAR1->{'bgp-information'}->{'bgp-peer'}}){
  print $_->{'peer-address'},"\n";
}

##</code><code>##

1.1.1.1
2.2.2.2
3.3.3.3