my %hash3;
@hash3{keys(%hash3_origin)} =
   ([0, 0]) x keys(%hash3_origin);

##</code><code>##

my %hash3;
@hash3{keys(%hash3_origin)} =
   map { [0, 0] } 1..keys(%hash3_origin);

##</code><code>##

my %hash3; $hash3{$_} = [0, 0] for keys(%hash3_origin);

##</code><code>##

my @hash3 = map { $_ => [0, 0] } keys(%hash3_origin);