'tye2' => sub {
        my $f = ord($str_a);
        for my $str_b ( @list ) {
            next if $f != ord( $str_b );
            expensive_function ( $str_a, $str_b );
        }
    },