-if ($options{update}) {
- my %fast_db;
- while (<STDIN>) {
- chomp;
- my ($key,@val) = split /\t/;
- $fast_db{$key} = [make_list($fast_db{$key} // [],@val)];
- }
- for my $key (keys %fast_db) {
- $t_db{$key} = $fast_db{$key};
- }
-}
-elsif ($options{create}) {