use Tie::Scalar; use base qw(Tie::StdScalar); sub STORE{ my $self = shift; my $valu = shift; $$self += $valu; print "$$self\n"; return $$self; } tie my $i, 'main'; $i = 1; $i = $i < 5 ? ++$i : 1; # Ausgabe 1 3