perl获取指定文件夹下的指定扩展名的文件
比如当前目录下的mp3文件，如何保存到数组？

[解决办法]
my @files = <*.mp3>;

[解决办法]
这几种方法都可以：
1 :
@list = glob "*.mp3";

2:
@list = <*.mp3>;

3:
@list = `ls *.mp3`;