my $redmap = [0 .. 255];
my $blumap = [0 .. 255];
my $grnmap = [0 .. 255];

$blumap->[255] = 0;
$grnmap->[255] = 0;

$img->map(red=>$redmap, blue=>$blumap, green=>$grnmap);