my @intf_list = ("xe-4/0/1", "xe-2/2/1"); 
	 foreach my $myint (@intf_list) {
            my @outputlist = split m([-/]), $myint;
            push (@fpc, $outputlist[1]);
            push (@pic, $outputlist[2]);
            push (@port, $outputlist[3]);
                  print "my fpc of intf is $fpc[0]\n";
        print "mu pic is $pic[0]\n";
        print "my port is $port[0]\n";


##</code><code>##

show chassis fpc pic-status 4
Slot 4   Online       MPC4E 3D 2CGE+8XGE
  PIC 0  Online       4x10GE SFPP
  PIC 1  Online       1X100GE CFP
  PIC 2  Online       4x10GE SFPP
  PIC 3  Online       1X100GE CFP

##</code><code>##


        $rh->cmd("show chassis fpc pic-status $fpc[0]");
        my $output = $rh->get_response;
         my @outputlist = join s/(^\s+|\s+$)//g, $output;