my $p;
$p //= 2;

my $q = 0;
$q //= 2;

print $p , $q; #  20