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