一个perl的基本问题

有个数组@a，它里面是一个个字符串，怎么把它的内容转到@b里，要求只要每个字符串的前两个字符。谢谢，哪位知道？？？

@a={dsdfsd,ijfiejifjs,sldjfso,sdfji}
让@b={ds,ij,sl,sd}

谢谢啊，谢谢

map～～

@a= qw(dsdfsd ijfiejifjs sldjfso sdfji);
@b = map { substr($_, 0, 2) } @a;
print "@b";