Select Code to Download

use strict ;
use warnings ;
...
          'key1' => 2,
          'key2' => 3
        };

my %hash2 ;
my @keys_origin = keys %hash_origin ;
...
          'key2' => 3,
          'key1' => 2
        };

my %hash3_origin = ( 'key1' => [1, 2], 'key2' => [3, 4], 'key3' => [5,
+ 6] ) ;
my @keys3_0 = qw( key1 key1 key2 key2 key2 ) ;
...
          'key1' => $VAR1->{'key3'},
          'key2' => $VAR1->{'key3'}
        };

@hash3{@keys3_origin} = ([0, 0]) x @keys3_origin ;

@hash3{@keys3_origin} = map [($_) x 2], (0) x @keys3_origin ;

@hash3{@keys3_origin} = ((0, 0)) x @keys3_origin ;
or
@hash3{@keys3_origin} = (@{[0, 0]}) x @keys3_origin ;