if ((scalar @$ort_log[$site_index])==scalar '+')

##</code><code>##

if ( '+' eq $ort_log->[$site_index] )