in reply to index wrapping in tied FETCH and EXISTS

It's a very useful and commonly used feature. 
sub peek {
   return $stack[-1];
}

[download]

In Section Seekers of Perl Wisdom