my(@array) = qw(1 7 8 9 10 ja Ja JA bla);
if ( grep $string eq $_, @array ) {
    # do sth
}
# oder etwas kuerzer...
if ( grep $string eq $_, qw(1 7 8 9 10 ja Ja JA bla) ) {
    # do sth
}