@in = qw{a b c -d -e};
map { s/-//; $_ } @out = @in;