import time
import numpy as np
d = (1000,500,500)
t = time.time(); x = np.zeros(( d )); print( time.time() - t )
t = time.time(); y = np.ones(( d ));  print( time.time() - t )
t = time.time(); z = x / y;           print( time.time() - t )

1.1920928955078125e-05
0.6920394897460938
1.205686330795288


use strict;
use warnings;
use feature 'say';
use Time::HiRes 'time';
use PDL;
$PDL::BIGPDL = $PDL::BIGPDL = 1;
my @d = (1000,500,500);
my $t;
$t = time; my $x = zeroes( @d ); say time - $t;
$t = time; my $y = ones( @d );   say time - $t;
$t = time; my $z = $x / $y;      say time - $t;

0.727283954620361
0.730240821838379
0.971168994903564