#!/usr/bin/perl -w
use strict;
use DB_File;

tie my %h, 'DB_File', undef, O_RDWR|O_CREAT, 0666, $DB_BTREE
   or die "DB_File tie failed: $!";

#$DB_BTREE->{compare} = sub { $h{$_[1]} <=> $h{$_[0]} };
#$DB_BTREE->{compare} = sub { $h{$_[0]} <=> $h{$_[1]} };
#$DB_BTREE->{compare} = sub { $_[0] cmp $_[1] };
#$DB_BTREE->{compare} = sub { $_[1] cmp $_[0] };


%h = (
    'John'   => 33,
    'Jacob'  => 29,
    'Jingle' => 15,
    'Heimer' => 48,
    'Smitz'  => 12,
);
print "$_ : $h{$_}\n" for keys %h;