my $str_a = 'Foo';

my $chr_a = substr $str_a, 0, 1;

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