use strict;
use warnings;
use Tie::Scalar;
use base qw(Tie::StdScalar);

sub FETCH{
    my $self = shift;
    print "$$self\n";
    return $$self;
}

tie my $i, 'main';
$i = 1;

$i = $i < 5 ? ++$i : 1; 

# Ausgabe
1
1