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