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