$PDL::BIGPDL=1; # true value
$name=zeroes($large_number1,$large_number2); # now size not checked

##</code><code>##

use PDL::IO::FastRaw;
$name=mapfraw(
  'fname',
  {Creat => 1, Dims => [$large_number1,$large_number2]}
);