my @keys = qw( a b c );
my @val1 = ( 1, 2, 3 );
my @val2 = ( 2, 4, 6 );

my %hoa;
my $idx = 0;
for my $k ( @keys ) { 
  @{ $hoa{ $k } } = [ $val1[ $idx ], $val2[ $idx ] ];
  $idx++;
}