sub s_in_a {
    my $s = shift;
    my $joined = '#' . join('#', @_) . '#';
    if (index($joined, "#$s#") >= 0) {
        return 1;
    }
    else {
        return 0;
    }
}