my @pri = grep {!$seen{$_} ++} @links;