my $cmp = sub {
  my ($key_a, $value_a, $key_b, $value_b) = @_;
  # do some comparison
};