So why couldn't/wouldn't you do the exact same in perl? You could even do it transparently via tie, or you could do it overtly by creating the object. Seems fairly simple to me at least.

package ArrayList;

my $i;
sub new{shift;return bless{[@_]=>shift};}

sub iterate{return $_[0]->[$i++]}
[download]

And so on and so forth.