my @list = ...;
my %list; @list{ map{ substr $_, 0, 1 } @list } = ();

my $str_a = 'Foo';                               
expensive_function($str_a , $str_b) 
    unless exists $list{ substr $str_a, 0, 1 };