else
	{
	   my $dpos = tell(DATA);	   
	   print "\n$dpos";
	   chomp ( @work_file=<DATA>);
	   seek (DATA ,2,"SEEK_SET");

	}