@cursor_keys = qw(<Up> <Down> <Left> <Right>);
$keyname_to_find='<Down>';
my_string_index $keyname_to_find, @cursor_keys;