use Tie::IxHash;
tie %thash, Tie::IxHash;

print $q->popup_menu(-name => $p, labels => \%thash, -values => [ keys %thash ]);