my $x; 
$x *= 2;

Use of uninitialized value $x in multiplication (*) at ...