Select Code to Download

my @data = map { RemoveCaps $_ } @input;

my @data = map { my $x = $_; RemoveCaps $x; $x } @input;