#!/usr/bin/perl -l

use strict;
use warnings;

sub TIESCALAR { bless \my $i, shift }
sub FETCH { warn "FETCH called!\n"; ${shift,}++ }

tie my $s, 'main';
print "$s$s$s";

__END__