sub schlep
{
        my ($p,$q,%p2q) = @_;

        @{$q}{values %p2q} = @{$p}{keys %p2q};
}