sub Compare
{
  my($k1, $k2)=@_;
  $k1 cmp $k2;
}

...

$DB_BTREE->{'compare'} = \&Compare ;