my %temp;
@temp{@to_keep} = @h{@to_keep};
%h = %temp;