if ((-e "1\.txt")||(-e "2\.txt")){
	$file_name=$_;
	$fh->new IO::File "<$file_name" or die $!;
}