for ($name, $vorname, $geburtsort) { $_ = uc $_; }