sub one { two(@_); }
sub two { s/(.)\1/$1/ for @_ } 
one(qw(aa bb cc))