my $str_a = 'Foo';
my $letter = substr $str_a, 0, 1;
for my $str_b ( @list ) {
    next if $letter eq substr $str_b, 0, 1;
    expensive_function($str_a , $str_b);
}