c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"use 5.010;
 ;;
 sub node { state $x = 42;  return ++$x; }
 ;;
 $_ = node() for my ($in_neg, $in_pos, $out_neg, $out_pos);
 dd $in_neg, $in_pos, $out_neg, $out_pos;
"
(43 .. 46)