Select Code to Download

my @keys = qw( a b c );
my @val1 = ( 1, 2, 3 );
...
  @{ $hoa{ $k } } = [ $val1[ $idx ], $val2[ $idx ] ];
  $idx++;
}