sub my_string_index($\@) {
    my ($symkey, $symkeys)=@_;
    my $index=-1;
    for ($index=0;$index<=$#$symkeys; ++$index) {
        if ($symkeys->[$index] eq $symkey) { return $index; }
    }
    return -1;
}