package P;
while (<>) {
   my ($k, $v) = split;
   $$k = $v;
}

for my $k (keys(%P::)) {
    ... $$k ...
}