Hi!
Die Aufgabenstellung ist nicht hinreichend definiert. Nachfolgendes Stück Code macht jedenfalls das, was der mittlere Absatz angibt.
Unter der Annahme, in @r, @g, @b seien die Farbkomponenten der Pixel linear:
for ($i=0; $i<=$#r; $i++) {
if (($r[$i]<128) && ($g[$i]<128) && ($b[$i]<128)) {
$bw[$i]=0 # schwarz
} else {
$bw[$i]=1 # weiß
};
};
print @bw;