my(@array) = qw(1 7 8 9 10 ja bla);
if ( grep lc $string eq $_, @array ) {
    # do sth
}