foreach my $R2 (@array) {
push (@isis_adjacencies$R2, $R2);
}