Самый быстрый способ изменить значения массива?

Question

Есть ли более быстрый способ (быстрее, чем foreach) изменять каждое значение массива?

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

Answer 1

короче способ написать то же самое:

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