expensive_function($str_a , $_)
    unless ($letter eq substr $_,0,1)
        for @list;