no strict 'refs';
$x = 1;
$y = "x";
$$y++;
print $x," bad!\n";