while ( (@k, @v) = each %hash)  {
       print "@k => @v \n";
       }