Language Basics Perl

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