exec("grep $serial logs* > $serial.log");

##</code><code>##

open(SERIALS, "serials.txt") or die("can't open serials.txt");
@serials = <SERIALS>;
for my $serial (@serials) {
	print "now processing $serial";
	exec("grep $serial logs* > $serial.log");
}