while (($_) = sort keys %data){ 
 
 print "while: $data{$_}\n"; 
 delete $data{$_}; 
}

##</code><code>##

while (my ($k, $v) = each %data) {
  print "key is $k, value is $v\n";
}