请问perl中map()的有关问题

请教perl中map()的问题
刚刚上手，就遇到一个棘手的问题，请大家帮忙。下面这段代码：

@phrase=( "   ABC   ", "   def   ", "   jdk   ");  
@caps   =   map   uc,   @phrases;

把数组的元素变成大写，可是我在机器上调试不出来结果，如果强行输出@caps的内容，系统报错，说变量可能没有初始化。   我用的是windowsXp下activeperl.


[解决办法]
@caps = map uc, @phrase;
@phrase多写了个s，呵