for ($i=0; $i < $lines1; $i++) {

	print "Name $i is $data_names[$i]<p\/>";

	open(FH, "<Files/$data_names[$i].txt")or die "No can! :$!";

	print "Name $i is $data_names[$i]<p\/>";

	@data = <FH>;

	print "Data for $data_names[$i] is $data[$i]<p\/>";
	
	close (FH);
}