for $link (@links) {
     @link_tokens = split("#", $link);
     push(@pri, $link_tokens[0]);
  }