use strict;
use BerkeleyDB;
my $filename = "text" ;
unlink $filename ;
my @h ;
tie @h, 'BerkeleyDB::Recno',
 -filename   => $filename,
 -Flags      => DB_CREATE,
 -Property   => DB_RENUMBER
   or die "Cannot open $filename: $!\n" ;


# Add a few key/value pairs to the file
$h[0] = "orange" ;
$h[1] = "blue" ;
$h[2] = "yellow" ;
push @h, "green", "black" ;