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