$img_gry->Set('pixel[$col,$row]' => 'rgb($sub_red, $sub_green, $sub_blue )');

##</code><code>##

$con_str = "\$img_gry->Set('pixel[$col,$row]' => 'rgb($sub_red, $sub_green, $sub_blue)')";
push(@pix_con_str, $con_str);

##</code><code>##

for $jc (@pix_con_str) {
    eval($jc);
}