my @keeps = qw{a b};
    my %to_keep = map { $_ => 1 } @keeps;
...
        delete @$sms_ref{ grep { ! exists $to_keep{$_} } keys %$sms_ref };