perl中类似数组切片的哈希切片

有没有内置的函数,或者更简短的方法来将元素提取到新数组中,如这里所述?

<?php

function arr_slice ($arr, $keys) {
  $ret = array();
  foreach ($keys as $k) { $ret[$k] = $arr[$k]; }

  return $ret;
}

$array = array(
  "a" => 1,
  "b" => 2,
  "c" => 3,
  "d" => 4,
);
var_export(
  arr_slice($array, array("x","d","b"))
);

array (
  'x' => NULL,
  'd' => 4,
  'b' => 2,
)