use strict;
use warnings;

{
	foreach my $datum (@{$var1->{"key"}->{"data"}->[0]})
	{
		print "$datum\n";
	}
}