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