use DB_File;
tie %DB_IT, "DB_File", "$filename1", O_CREAT|O_RDWR, 0666 or die "Can't open $filename1: $!\n";