Select Code to Download

my @tmp = qw( a b c d );
my @keys = reverse @tmp;
...
    
use Data::Dumper;
print Dumper( $hash );

my @tmp = qw( a b c d );

...
    
use Data::Dumper;
print Dumper( $hash );