use strict;
use warnings;
use 5.010;


my $total;
$total++;

say $total;

--output:--
1