use strict; use warnings; package MyClass; use Tie::Array; our @ISA = ('Tie::Array'); our @data; # mandatory methods sub TIEARRAY { my $class = shift; bless \@data, $class; @data = @_; return \@data } sub FETCH { print "FETCH: "; my ($self, $index ) = @_; return $data[$index] } sub FETCHSIZE { print " "; return scalar @data } package main; for( @{ tie my @x, "MyClass", "first", "second"; \@x } ) { print "In loop = "; print "$_\n"; }