Select Code to Download

my $h1 = {
    'drug comparison' => 
    {
...
        }
};
my $copy = do{my $VAR1; eval Dumper $h1; $VAR1;};