expensive_function($str_a , $str_b) unless ($letter eq substr $str_b,0,1);

##</code><code>##

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