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