<pre>ну например вот так:

    # этот блок кода надо ускорить
    srand(60);
    my @colors = map { Imager::Color->new(($_)x3 ); } 0..255;
    for my $i (0..39293) {
        $image->setpixel( x => rand(1024), y => rand(1024), color =>
$colors[ rand(256) ]);
    }
    # этот блок кода надо ускорить


на моей машине соотношение в 3.9 раз лучше, чем у оригинала.
</pre><br><div class="gmail_quote">2012/10/26 Михаил Монашёв <span dir="ltr"><<a href="mailto:postmaster@softsearch.ru" target="_blank">postmaster@softsearch.ru</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Здравствуйте.<br>
<br>
Вдогонку...<br>
<br>
Конкурс не о том, как всех обмануть, найдя лазейку в условии задачи.<br>
Он про другое.<br>
<br>
Поэтому,  например,  решения  из  генерённого  кода типа многократного<br>
повторения строчек вида:<br>
<br>
$image->setpixel(x=>12, y=>34, color=>Imager::Color->new(56, 78, 90 ));<br>
<br>
не принимаются.<br>
<div class="HOEnZb"><div class="h5"><br>
--<br>
С уважением,<br>
 Михаил                          mailto:<a href="mailto:postmaster@softsearch.ru">postmaster@softsearch.ru</a><br>
<br>
--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br>Best wishes,<br>Vladimir V. Perepelitsa aka Mons Anderson<br><<a href="mailto:inthrax@gmail.com">inthrax@gmail.com</a>>, <<a href="mailto:mons@cpan.org">mons@cpan.org</a>><br>
<a href="http://github.com/Mons">http://github.com/Mons</a><br>