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