Select Code to Download

sub my_string_index($\@) {
    my ($symkey, $symkeys)=@_;
...
    }
    return -1;
}

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

# skeleton file read & write functions...
sub readfile {  my ($array_p)=@_;  @$array_p=<>;}
...
#save results back in file
save_file(\@mynewfile);   #will save array back to file