my @list;
foreach my $file (<INFILE>) {
	foreach (split /,/, $file) {
		m/(AAA\.\d)/;
		push @list, $1;
	}
}