Select Code to Download

use strict;
use warnings;
...
  next unless $w-2*$x+$y or $x-2*$y+$z;
  print "$w, $x, $y, $z\n";
}

while(1){
    my ( $z, $y, $x, $w ) = @{ $iter->next // last };
    ...
}