use strict;
use warnings;

{
 my $x = 0;
 sub X() {
   ++$x;
   \$x;
 }
}

print ${X()}, "\n";
print ${X()}, "\n";
print ${X()}, "\n";
print ${X()}, "\n";
print "${X()}${X()}\n";  # why does this behave
print "${X()} ${X()}\n"; # differently from this?

##</code><code>##

1
2
3
4
66      <--- why is this not 56?
7 8     <--- or why is this not 8 8?