# Rotpunkte mit verschiedener Intensität
$image = Image::Magick -> new;
$image -> Set(size => '10x10');
$image -> ReadImage ('canvas:red');

%myRGB = ();
# Intesität setzen
$myRGB{'0,0'} = 1;
$myRGB{'5,5'} = .2;
$myRGB{'3,2'} = .5;
$myRGB{'4,8'} = .7;

for my $x (0..$width-1) {
  for my $y (0..$height-1) {
    if (exists $myRGB{"$x,$y"}) { 
      $image -> SetPixel ( 
        x=>$x, y=>$y, 
        # setze Intensität für Rot
        color => [ $myRGB{"$x,$y"}, 0, 0 ]
      );
    }
  }
}
$image -> Write ('test2.png');