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

##</code><code>##

sub alias_array { \@_ }
my $look_for = alias_array($name,$nerd,$noodle,$froodle,);
foreach my $item (@$look_for) {
  $item =~ s/$i_seek/ /g;
}