use Strict; # use strict;

my $val = 5000;
$va1++; # no "Global symbol..." error here
print $va1;