foreach my $k1 (sort keys %hash){