for my $r (@router)
{
    print "value of r is $r\n";

    OUTER: for my $f (values %{ $fpc{$r} })
    {
        INNER: for my $p (values %{ $pic{$r} })
        {
            print "request chassis pic offline fpc-slot $f pic-slot $p\n";
            next OUTER;
        }
    }
}

##</code><code>##

for my $r (@router)
{
    print "value of r is $r\n";

    OUTER: for my $f (values %{ $fpc{$r} })
    {
        my $p = (values %{ $pic{$r} })[0];
        print "request chassis pic offline fpc-slot $f pic-slot $p\n";
    }
}