my @routers =$r[0];
    my @router = ( "R0", "R2", "R3" );

          my %fpc =  (

                R0 => { fpc1  => 5, fpc2  => 4, },
                R2 => { fpc1  => 3, fpc2  => 2, },
                R3 => { fpc1  => 1, fpc2  => 0, },
      );


          my %pic =  (

                R0 => { pic1  => 5, pic2  => 4, },
                R2 => { pic1  => 3, pic2  => 2, },
                R3 => { pic1  => 1, pic2  => 0, },
      );

         @router = ( "R0", "R2", "R3" );

       for my $rh (@routers) {
              my $r = shift(@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;
}
}
}