my @keys = sort keys %HoA;
my $num_elements = @{$HoA{$keys[0]}};
for (my $i=0; $i<$num_elements; $i++) {
   print FILE join('', map { $HoA{$_}[$i] } @keys), $/;
}