Select Code to Download

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

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

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

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

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

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