$ perl -E 'my @x = qw{Jeff JEFF jEfF}; say ucfirst lc $_ for @x'
Jeff
Jeff
Jeff