# $foo = uc($foo) $foo ?= uc; # even do arrays! @arr ?= reverse;