my @keys = keys %hash;

for my $i ( @keys ) {
    my( $k1, $v1 ) = ( $i, $hash{ $i } );

    for my $j ( @keys ) {
        my( $k2, $v2 ) = ( $j, $hash{ $j } );
        ...
    }
}