Translated "for loop in perl" to zh-tw.

as $subject.