fix_chars(@names);

##</code><code>##

my @names = fix_chars(@names);

##</code><code>##

sub fix_chars {
  my @fixed = @_;
  for (@fixed) { 
    tr/ΑΠΙΝΣΪέΦαπινσϊύφ/ADEIOUYOadeiouyo/; 
    ...
  }
  return @fixed;
}