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

##</code><code>##

push @{$p2i{$sp}}, $ipr;

##</code><code>##

print "$key\t$p2i{$key}\n";  

##</code><code>##

print "$key\t@ {$p2i{$key} }\n";  # need @ to dereference array

##</code><code>##

if (exists $p2i{$user}) {
        print "$user is in the hash. \n";if (exists $p2i{$user}) {
        print "$user is in the hash. \n";

##</code><code>##

if (exists $p2i{$user}) {
        print "$user is in the hash. \n";