Hash table is unordered

Create a table by:

for (my $i=0; $i<$#dat_array+1; $i++)
{
   $table{"$dat_array[$i]"} = "$res_array[$i]";
}

Print table by:

while ((my $key, my $val) = each (%table))
{
   print "$key\t$val\n";
}

You will get different order as you created in array.