my $code = sub {
  #
  # some sort of magic currently unknown to me
  #
};

$h{'abc','xyz'} = ($code) x 2;