tie %{$dbs[$db]}, "Thread::Shared", {module => "DB_File"}, $dbfn[$db], O_RDONLY
  or die ((caller 0)[3]. " can't tie "  . $dbfn[$db] . ": $!");