my $x = 5;
$x += 1;
print 5;