foreach my $value (values %data) {
  if (ref $value ne "HASH") {
     print "$value\n";
  } else {
     print "$_\n" foreach values %$value;
  }
}