Select Code to Download

for($y=1;$y <= $height;$y++){
    for($x=1;$x <= $width;$x++){

for my $y ( 0 ..  $height - 1 ){
    for my $x ( 0 .. $width - 1 ){

for my $y ( 1 .. 3 ) { 
    for my $x ( 1 .. 3 ) { 
...
[1:3] =>  2
[2:3] =>  5
[3:3] =>  8

        my $pixel = ( $y * $width ) + $x;

        if( $data[ $pixel ] == 0 ){
            $image->setPixel( $x, $y, $dbz1 );
...
        if ($data[$pixel] > 20 and $data[$pixel] <= 30){
            $image->setPixel($x,$y,$dbz15);
        }

        if( $data[ $pixel ] == 0 ){
            $image->setPixel( $x, $y, $dbz1 );
...
        else {
            ## What do you want to do if the value is greater than 30?
+?
        }

open JPEG,'>','test_image.jpg' || die;
print JPEG $image->jpeg();

binmode JPEG;

#!/usr/bin/perl -w
use strict;
...
print JPEG $image->jpeg();
close JPEG;
exit;