foreach my $k (keys %foo) {
  my $v = $foo{$k};
  ...
}