opendir(DIR_A,"$input_directory") or die $!;

INNER_A:
 while(my $job =readdir(DIR_A)){