the second ball is generated with the same underlying script, but with a randomising function applied to the colours:

open F,">o.bmp";print F pack("a2L9x16",BM,37686,0,54,40,112,112,1572865,
0,37632),map{$c=(($_%112-55)**2+($_/112-55)**2<3025?255-3*(($_/112-75)**
2+($_%112-65)**2)**.5:0);$r=rand;$s=(200-$_%112)/200;chr($c*.8*$s),chr($
c*.3*$r*$s),chr($c*.4*$r*$s);}1..12544