#!/home/weizhong/tools/perl-5.32.0/perl
use PDL;
$PDL::BIGPDL = 1;
$X = zeroes(1000,500,500);
$Y = ones(1000,500,500);
$Z1 = $X + $Y;
$Z2 = $X / $Y;