my $str_a = 'Foo';                                # Can be any length
for my $str_b ( @list ) {                         # Can be any number of items
    next if index($str_a, substr($str_b, 0, 1));  # Only change this
    expensive_function($str_a , $str_b);
}