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