Select Code to Download

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

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

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