Select Code to Download

use Data::Dumper;
use strict;
...
}

print Dumper($hash), "\n";

$VAR1 = {
          '20090619' => {
...
                                 }
                        }
        };