...
        delete @$sms_ref{ grep { ! $to_keep{$_} } keys %$sms_ref };