for my $i ( sort keys %{$router_href} )
{
    for my $j ( sort keys %{$router_href->{$i}->{bgpPeer}} )
    {
        print "($i:$j) "
         , $router_href->{$i}{bgpPeer}{$j}{Name}
         , ":\t"
         , $router_href->{$i}{bgpPeer}{$j}{prefixList}
         , "\n"
    }
}