while(($key.$val) = each(foo))
{
   print $key{$val};
}