my %isis_adjacencies;

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