for( @{ tie my @x, "My::Class", "first", "second"; \@x } ) {
	print "$_\n";
}