use strict ;
    use DB_File ;


    use vars qw( $x %h ) ;

    # Enable duplicate records
    $DB_BTREE->{'flags'} = R_DUP ;

    $x = tie %h, "DB_File", undef, O_RDWR|O_CREAT, 0640, $DB_BTREE 
        or die "Cannot open $filename: $!\n";

        $h{'Wall'} = 'only once';
        $h{'Smith'} = 'more than once';
        $h{'Smith'} = 'more than twice';
        $h{'Smith'} = 'three times';

    my $cnt  = $x->get_dup("Wall") ;
    print "Wall occurred $cnt times\n" ;
    my %hash = $x->get_dup("Wall", 1) ;
    print "Larry is there\n" if $hash{'Larry'} ;
    print "There are $hash{'Brick'} Brick Walls\n" ;
    my @list = sort $x->get_dup("Wall") ;
    print "Wall =>      [@list]\n" ;
    @list = $x->get_dup("Smith") ;
    print "Smith =>     [@list]\n" ;


    @list = $x->get_dup("Dog") ;
    print "Dog =>       [@list]\n" ;