perl 如何将多个map的结果返回给数组

Map的用法想必大家都很熟悉，比如想把数字前面加上一个“num”前缀，然后返回。

my @list = map {"num$_"} (1 .. 10);

但是如果我想再增加一个把所有的字母前面加一个“str”前缀，该怎么写，这时候，我们可以用匿名函数来返回每一个map的结果。

my @list = ( 
       sub{ map {"num$_"} (1 .. 10)}->(),  
       sub{ map {"str$_"} ('a','b','c','d','e')}->(),  
);