my (@keys, @values1, @values2);
my %hash;
for (0 .. $#keys) {
   $hash{$keys[$_]} = [ $values1[$_], $values2[$_] ];
}