#!/usr/local/bin/perl -w

use strict;

use Fcntl;
use SDBM_File;

my %hash;
tie(%hash, 'SDBM_File', 'example', O_RDWR|O_CREAT, 0640);

$hash{'animal'} = 'dog';
@hash{'vegetable', 'mineral'} = ('carrot', 'quartz');

print "$hash{'animal'} is an animal.\n";
while (my($key, $val) = each %hash) {
  print "My $key is a $val.\n";
}

__END__