foreach $w1 ( sort( keys %kernel ) ){
    $totalsim = $maxsim = 0;
    @topX = ();
    $at2 = 0;

    foreach $w2 ( sort( keys %kernel ) ) { 
...