map ?

bonjour

j'essaie d'utiliser map sur un tableau pour éviter une boucle foreach
dans cet exemple j'essaie de supprimer l'extension de fichier

le foreach marche, pas le map :
./essai.pl
1 2 3
1 1 1
je soupçonne un problème de contexte ?

#!/usr/bin/perl
use strict;
use warnings;

my @list = ('1.rrd', '2.rrd', '3.rrd');
my @list2 = @list;

foreach (@list) {
s/\.rrd//;
}

print "@list\n";

my @list3 = map { s/\.rrd// } @list2;

print "@list3\n";