open (FILE, "all_controls.txt") or die "can't open file $!"; my @file=; chomp @file; foreach my $file (@file) { mkdir "$file"; }