use Tie::Scalar::Watch;
my $x = 10;
watch { $x > 5 } $x;