my $a;
$a = $a << 1;
$a = $a << $a
