# I've never really used a dbm.
# They allow complicated structures, right?
$dbm{$name}{'age'}   = 29;
$dbm{$name}{'email'} = 'nobody@example.com';

##</code><code>##

use Fcntl ':flock';

sub add_names {
 my @add = @_;

 open my $fh, '+<', 'names.dat';
 flock $fh, LOCK_EX;
 chomp( my @names = <$fh> );
 seek $fh, 0, 2;

 for my $name (@add) {
  warn "$name is already in file" and next
   if grep { /^$name$/i } @names;
  print $fh "$name\n";
 }

 close $fh;
}

sub get_names {
 open my $fh, '<', 'names.dat';
 chomp( my @names = <$fh> );
 close $fh;

 return @names;
}

sub del_names {
 my @del = @_;

 open my $fh, '+<', 'names.dat';
 flock $fh, LOCK_EX;
 chomp( my @names = <$fh> );
 truncate $fh, 0;
 seek $fh, 0, 0;

 for my $name (@names) {
  print $fh "$name\n" unless grep { /^$name$/i } @del;
 }
 close $fh;
}