Select Code to Download

#!perl -l

...
print my $blue_out_calc = $abcdef001 x $blue_in;

print $blue_out_calc - $blue_out_for_checking; # no more than one pixe
+l off

__END__
I am not a PDL expert, so I am sure there's a way with its linear alge
+bra to skip doing all the math.
...

    BLUE_OUT = abcdef001 * BLUE_IN