Help for this page
for my $rh (@routers) { my $r = shift(@router); # ...
for my $r (@router) { # ...