my $eff_date = uc(trim($ws->{Cells}[$row][2]->{Val}));