foreach(keys %hash ){ 
 } 

 or 
 while (my ($k,$v) = each %hash){
 }