tie %IDS, "DB_File", $file or die "Can't open $file: $!";