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