#!/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;

##</code><code>##

#!/home/weizhong/tools/Python-3.8.5/python
import numpy as np
X = np.zeros((1000,500,500))
Y = np.ones((1000,500,500))
Z1 = X+Y
Z2 = X/Y

##</code><code>##

#!/bin/csh -f
echo "Python test1.py:";
time ./test1.py
echo "Perl test1.pl:";
time ./test1.pl
echo "Python test1.py:";
time ./test1.py
echo "Perl test1.pl:";
time ./test1.pl