# something like this....
# @Pages is a list of integer page numbers
# get_links_linked_from($) does what it looks like
foreach my $page (@Pages) {
    my @Links=&get_pages_linked_from($page);
    foreach (@Links) {
        $Link_Store[$_]=[] unless $Link_Store[$_];
        push @{$Link_Store[$_]}, $page;
    }
}
# assuming you start on page 1
for (my $i=1; $i<=$#Link_Store; $i++) {
    my $linkers = join ", ", @{$Link_Store[$i]};
    print "Page $i linked from $linkers\n"
}