Select Code to Download

sub alter {   
   my @newlist;
...
   }
   @newlist;
}

sub alter {   
    grep $_, map { uc is_name($_) } @_;
}

sub alter(*@a) {
   gather for @a {
...
       take uc $name if $name;
   }
}

sub alter(*@a) {
   gather for @a.map({ is_name($_)}) {
       take .uc if $_;
   }
}