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