##
112
445
012
345
##
##
#!/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__
##
##
0 1 2 - 3 4 5 - 6 7 8