use List::Util qw(first);
$links0_in_visited_urls = first { $_ eq $links[0] } @visited_urls