INNER_A:
      while(my $job =readdir(DIR_A)){      #    
	chomp;
	next unless -f $job;	# ignore specials