修改数组值的最快方法？

Question

是否有更快的方法（比foreach更快）修改数组的每个值？

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

Answer 1

更短的编写相同内容的方式：

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