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