foreach my $infile(@infile){