@filecheck = <*.txt>;

	foreach $file (@filecheck) {
		open FILE, "$file" or die "\nError reading file";
		@lines = <FILE>;
		close FILE;

		open FILE, "$file" or die "\nError reading file";
		foreach $line (@lines) {
			@words = split ' ', $line;
			if (@words [1] eq $star) {
				print "\n@words[var]";
			}
		}
	}