my @out = map { my $s = $_; $s =~ s/-//; $s } @in;

##</code><code>##

my @out = @in;
s/-// for @out;

##</code><code>##

use List::MoreUtils qw( apply );
my @out = apply { s/-// } @in;