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