$ perl -wE'say(scalar(my ($x, $y)))'
Use of uninitialized value $y in say at -e line 1.


##</code><code>##

&tst(state ($x, $y));