Someone

sub reload_sites {
  while ($site = shift) {
     for my $i (0..$#{$valid_site{lc($site)}} - 1) {
      print "\n" if $DEBUG;
      print "First, checking superd's status before we go willy-nilly:\n" if $DEBUG;
      print scalar localtime(time) . ":\n";

      if ((check_current_status($valid_site{lc($site)}->[$i])) and (check_current_status($valid_site{lc($site)}->[$i+1]))) {
        print "SuperD on $valid_site{lc($site)}->[$i] looks good...\n" if $DEBUG;
        print "AND SuperD on $valid_site{lc($site)}->[$i+1] looks good...\n" if $DEBUG;
        print "Executing ISFload on site $valid_site{lc($site)}->[$i]...\n\n";
        print "Load the isf's or something...\n";
        #if (remote_execute($valid_site{lc($site)}->[$i])) {
        #    confirm_reload($valid_site{lc($site)}->[$i]);
        #}
        #else {
        #    die ("It appears that the loadISF to $valid_site{lc($site)}->[$i] failed for some reason.\n");
        #}
      }
      else {
        die ("Abort: superdns does not appear to be running/functioning on $valid_site{lc($site)}->[$i]\n");
      }

    }
  }
}