while (@{$self->{_score}[$i][$base]} ne "0") 
{
    $last = $base;
    $base++; 
}