Yes, tried and worked

Pasting the final code 


        my @r = qw/h1 h2/ ;

         my $rh = JT->new( host => $r[0] );

       my $rh = JT->new( host => $r[1] );
    my $output;
    my $key;
    my $value;
    my @routers =($r[0], $r[1]);
    my @router = ( "R0", "R1", "R2" );



          my %fpc =  (

                R0 => [5,4],
                R1 => [3,2],
                R2 => [1,0],
      );


          my %pic =  (

                R0 => [5,4],
                R1 => [3,2],
                R2 => [1,0],
      );


      );

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

       for my $rh (@routers) {
              my $r = shift(@router);
                print "value of r is $r\n";
            my $count = 0;
            for my $f (@{ $fpc{$r} }) {
        # for my $p (@{ $pic{$r} }) {
            my $p = (@{ $pic{$r} })[$count];
            print "request chassis pic offline fpc-slot $f pic-slot $p
+\n";
            $count++;
#}
}
}

[download]

. Thanks all

In reply to Re^4: NEXT statement in for loop by Anonymous Monk
in thread NEXT statement in for loop by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.