Select Code to Download

while (@found < $pics_to_find * 30) {
  last unless @found_galleries;  # exit the loop if there are no more
...
    push @found, ...;
  }
}