my $x = 1;
$x = 10;
print $x;