foreach my $epiccurrent_row (@{$epiccurrent_array}) { #open foreac
+h
        if ($currentlist_row->{PatID} eq $epiccurrent_row->{PatID}) { 
+#open first if
            #my $apoint = $epiccurrent_row->{eAPoint};
            my $cpoint = $epiccurrent_row->{eCPoint};
            }#<---------------right here you need to close first if
            
            # Check CPoint
                    if (defined($cpoint) and $cpoint =~ /^\h*[0-9]+\h*
+\z/) { #open second if
                      $cpoint = $cpoint > 6 ? 6 : $cpoint + 0;
                    } #close second if
                    else { #open else
                $cpoint = 0;
            
            } #close else
}# <-------- right here you need to close the foreach
[download]

EDIT: Nevermind, i retract my proposal, looks like its gonna take more than just the above.