my %interfaces =  (
    R1R0  => 1,
    R1R6  => 2,
    R2R0  => 3,
    R2R6  => 1,
    R3R61 => 2,
    R3R62 => 3,
);

push (@routers, $r[1],$r[2],$r[3]);

foreach my $rh (@routers) {
		
  $rh->config(" deactivate  $interfaces{$R1R0}");
}

##</code><code>##

%interfaces_R1 = (
R1R0 =>
R1R6 =>
);

%interfaces_R2 =(
...