push @{$p2i{sp}}, $ipr;  # $ missing for key reference