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