Language Basics Perl

$x = 2;
$x += 2;
print $x;
$x -= 2;
print $x;
$x *= 5;
print $x;