Infinity prefer:
while( my $r = $iter->next ) {
my ( $z, $y, $x, $w ) = @{ $r };
next unless $w-2*$x+$y or $x-2*$y+$z;
print "$w, $x, $y, $z\n";
}
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.