&zip map $hoa->{"obj$_"}, 1..keys(%$hoa)