#!/user/bin/perl

@textFile = `cat Brain1.txt`;

foreach $line (@textFile) {
chop $line;
open(COUNTERFILE, ">./$line");
print COUNTERFILE "0";
close(COUNTERFILE, $line);
}