#!/usr/bin/perl -w

use strict;
$| = 1;

use CGI::Carp "fatalsToBrowser";
use CGI ":all";
use warnings FATAL => 'all';

my @names =
(
"name1",
"name2",
"name3",
);

Start:

foreach my $name (@names)
{
  if(!name already_in_database())
  {
     
     $res = $ua->get( $url1);  
          
     if(expected_data_not_found_on_a_continous_bases())
     {  
       goto Start;
     }
     ...

     add_data_found_to_database_for_this_name();
  }
}