the time is wasted in :

$pdata |= ~$png->wbmp($_) foreach (@col);
[download]

the while loop with the sprintf is not the bottleneck. (maybe not optimal, but contribute less)