while (<FILE1>){
	#@files = split(/\s+/, <FILE1>);
	#@files = glob ("*.datafield");
	$Datafield_List_tmp=<FILE1>;
	@Datafield_List_tmp =split(//,$Datafield_List_tmp);
	foreach(@Datafield_List_tmp){
		print "$_";
		}