-$ops{$_} = { 0 => 0.5, 10 => 0.5 } for map "gpw$_", qw/nam uid ent/;
-$ops{$_} = { 0 => 0.5, 4 => 0.5 } for map "ggr$_", qw/nam gid ent/;
-$ops{$_} = 'list' for qw/ghbyname ghbyaddr ghostent/;
-$ops{$_} = { 0 => 0.5, 4 => 0.5 } for qw/gnbyname gnbyaddr gnetent/;
-$ops{$_} = { 0 => 0.5, 3 => 0.5 } for qw/gpbyname gpbynumber gprotoent/;
-$ops{$_} = { 0 => 0.5, 4 => 0.5 } for qw/gsbyname gsbyport gservent/;
+$ops{$_} = { 0 => 0.5, 10 => 0.5 } for map "gpw$_", qw<nam uid ent>;
+$ops{$_} = { 0 => 0.5, 4 => 0.5 } for map "ggr$_", qw<nam gid ent>;
+$ops{$_} = 'list' for qw<ghbyname ghbyaddr ghostent>;
+$ops{$_} = { 0 => 0.5, 4 => 0.5 } for qw<gnbyname gnbyaddr gnetent>;
+$ops{$_} = { 0 => 0.5, 3 => 0.5 } for qw<gpbyname gpbynumber gprotoent>;
+$ops{$_} = { 0 => 0.5, 4 => 0.5 } for qw<gsbyname gsbyport gservent>;