use Lingua::Names 'is_name';
my @a = qw/andy lo1 beca cris/;

my @A = alter(@a);

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