Help for this page
http://www.foo.bar/index.html http://www.foo.bar/index.html#foo http://www.foo.bar/index.html#bar
my @pri = grep {!$seen{$_} ++} @links;