Select Code to Download

foreach my $value (values %data){
    print "$value\n";
}

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