Select Code to Download

use warnings;
use strict;
...
  print "\nin sub: " . Dumper (\%hash);
  return {%hash};
}

Original: $VAR1 = {
          'first' => '1',
...
          'first' => '1',
          'second' => '2'
        };