my @actual_values = delete @a{ grep { exists $a{$_}} @somekeys};