Pack doch einfach den Net::Imap::Simple-Konstruktor innerhalb der for-Schleife. Dein Code koennte ausserdem einige my-Deklarationen mehr verkraften und einige unperlische Sachen weniger (z.B. for($i=...; $i<...; $i++))