Why not? (And why don’t you try it?)

use strict;
use warnings;
use Data::Dump;

my %pic = (
    R0 => [ 5, 4 ],
    R2 => [ 3, 2 ] );

dd \%pic;
[download]

Output:

16:03 >perl 1651_SoPW.pl
{ R0 => [5, 4], R2 => [3, 2] }

16:03 >
[download]

See perlreftut and especially perldsc#HASHES-OF-ARRAYS.

Hope that helps,

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