$m = tie $m, main;
print " hacker\n$m";
sub STORE {print 'another '}
sub TIESCALAR {print 'Just '; bless [], $_[0]}
sub FETCH {print 'perl';''}