sub hash_slice (\%@) {
    my $h=shift;
    map { $_ => $h->{$_} } @_;
}