修改數組值的最快方法？

Question

是否有更快的方法（比foreach快）來修改數組的每個值？

my @array = ('file1.c', 'file2.h', 'file3.py'); 
foreach (my $elemeny (@array)) { 
    #remove extension 
} 

Answer 1

寫同樣的事情的短方式：

s/\.[^.]+$// foreach @array;