Select Code to Download

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

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