>perl -wMstrict -le
"persist();
 ;;
 { my $store = 0;
   ;;
   sub persist {
     print $store;
     ++$store;
     }
   }
 ;;
 persist();
 persist();
"
Use of uninitialized value $store in print at -e line 1.

0
1