#!/usr/bin/perl -w

use strict;
use DB_File;
use Fcntl;

print "using version: $DB_File::VERSION\n";

tie my %hash, 'DB_File', 'data.db';

foreach my $k (sort keys %hash) {
    printf "%d => %d\n", length($k), length($hash{$k});
}