D:\tmp\pm>perl -Mfeature=:all -M-warnings
sub uc_name { my \$name = \$_[0]; $name = uc $name }
$n="ken";
uc_name($n);
say $n
__END__
KEN