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