use Data::Dumper;
  ...
  print Dumper $data;