my $db=DBM::Deep->new(file=>"c:/testpad/collector.Deep",autoflush=>0);
my %hash_sorted=sort %hash;
my $st=time;
$db->import(\%hash_sorted);
my $et=time;
my $deltatime=$et-$st;
say "Time required to write hash using DBM-Deep: $deltatime secs";
$st=time;
store(\%hash_sorted,"c:/testpad/collector.storable");
$et=time;
$deltatime=$et-$st;
say "Time required to write hash using Storable: $deltatime secs";