my $h3_columns = 2 ; # use List::Util qw(max) ; max (each array size) = 2
$hash3{$_} = [ (0) x $h3_columns ] for @keys3_origin ;