use PDL;
use PDL::Graphics::TriD;
# load your data maybe as 3 same-length vectors, one each for x,y,z
points3d([$x,$y,$z]);