sub kv { my $h = shift; $h->%{ grep exists( $h->{ $_ } ), @_ } }

kv( \%+, qw( ... ) )