foreach $currentkey (keys %hash) {
  
}