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