Select Code to Download

use strict;

...
    use Data::Dumper;
    print( Dumper( \%examplehash ) );
}

$VAR1 = {
          '1' => [
...
                   }
                 ]
        };