while (<FILE1>){                                    # <--- 1

	$Datafield_List_tmp=<FILE1>;                        # <--- 2
	@Datafield_List_tmp =split(//,$Datafield_List_tmp); # <--- 3
	foreach(@Datafield_List_tmp){
		print "$_";                                 
		}