for my $k ( @k ) {
    if ( $s =~ /\0$k\0/ ) {
        delete $h{ $k };
        }
    }