for $zz(keys %data) {
	print OUTPUT "@{ $data{$zz} }" 
}