for (tie @ary, "My::Class", "some", "contents";) {
   ...
}

##</code><code>##

my $aryt = tie @ary, "My::Class", "some", "contents";
@ary = ... ;
for (0..($aryt->FETCHSIZE-1)) {
	do-something($aryt->FETCH($_));
}