perl大小写转换函数uc和lc

$side = uc $attrs[0];  #把attrs[0]转换成大写，然后给side变量赋值。
$gender = lc $attrs[1]; #把attrs[1]转换成小写，然后给gender赋值。