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";