use strict;
use DB_File;

my %cords;
tie %cords, "DB_File", "file_name";

if (!defined($cords{10000}))
{
    # generate %cords hash again
    ...
}