foreach my $infile( @{$infile_aref} ){