in reply to each() function used in associative arrays gives incorrect unordered output.
foreach my $key (sort(keys %array)) { print "$key = $array{$key}\n"; } [download]