my @v = values %$h;
  athashleveldo($_, $n-1, $action) for @v;