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

##</code><code>##

    for my $r (@router) {
        # ...