Select Code to Download

$VAR1 = {
          '_shards' => {
...
          'took' => 0,
          'timed_out' => undef
        };

foreach $_(@testarray) {
    print Dumper $_->{'hits'}{'hits'}->[0]->{'_source'};
    }