my $str_a = 'Foo';
my $fc = substr($str_a,0,1);
expensive_function($str_a, $_) for grep {! /^$fc/o} @list;