#!/usr/bin/perl -l

use strict;
use warnings;

sub TIEARRAY { bless \my $i, shift }
sub FETCHSIZE { 3 }
sub FETCH { ${shift,}++ }

tie my @s, 'main';
print "@s - @s - @s";

__END__