If it doesn't need to be in that exact format, the built in Data::Dumper module is quite nice:

use Data::Dumper;
print Dumper(\@ary);
[download]

Otherwise, you'll have to loop through the elements of the array, checking them with ref and recursing when necessary. It's doable, but not terribly fun.