use Data::Dumper;
print FILE Dumper $data