my $foo where { $_ < 10 };

$foo = 9;
$foo++;  # dies