Calling srand cannot be a workaround for this, because there is no interaction between Perl's RNG and PDL's. They are separate systems.