Fix syntax errors in L3 changes

Fix some syntax errors in my improvement code for L3 so that it actually runs.

Info/Layer3.pm

@@ -162,7 +162,7 @@ sub root_ip {
     return $router_ip
         if (( defined $router_ip )
         and ( $router_ip ne '0.0.0.0' )
-        and ( grep { $_ eq $router_ip } (keys %ospf_ip)) )
+        and ( grep { $_ eq $router_ip } (keys %$ospf_ip))
         and ( $l3->snmp_connect_ip($router_ip) ) );
 
     # return the first one found here (should be only one)