print $test_data->[0]{name};

##</code><code>##

print join ', ', map $_->{name}, @$test_data;