Help for this page
Select Code to Download
Select
or
download this
my ($sx, $sy, $s1) = $red_in->slice('0:2')->mv(0,-1)->sumover->dog;