sub alter {   
   my @newlist;
   while ( @_ ){
      $_ = shift @_;
      my $name = is_name($_) or next;
      push @newlist, uc($name);
   }
   @newlist;
}