Ok figured it out. One of the members of MyData was also an Any. This was not being set correctly.

So the solution was

my $anyData = new CORBA::Any($MyModule::MyData::_tc, $struct).
[download]

Thanks fever. You got me on the right track.