$num_domains = scalar @domains;

while ($num_domains > '0') { # Start Loopy Code

[blah]

    my $new_domain = shift @domains;

[blah]
 
    $num_domains = scalar @domains; # get the size of array

}