foreach my $key (sort(keys %array)) {
    print "$key = $array{$key}\n";
}