1	6	11
2	7	12
3	8	13
4	9	14
5	10	15

##</code><code>##

1	6	11
2	7	
3	8	13
4		14
5	10	15

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;

use PDL;
use PDL::IO::Misc;

my $file_name = shift;

die 'No file given.' unless defined($file_name);
open(my $fh, '<', $file_name) or die "Can not open file: $!";

my @pdls = rcols $fh, { COLSEP => "\t" };

foreach (@pdls) {
    print "$_\n";
}

exit;

##</code><code>##

[1 2 3 4 5]
[6 7 8 9 10]
[11 12 13 14 15]

##</code><code>##

[1 2 3 4 5]
[6 7 8 0 10]
[11 0 13 14 15]

##</code><code>##

perl -MPDL -E 'say $PDL::undefval'
0

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;

use PDL;
use PDL::IO::Misc;

my $file_name = shift;

die 'No file given.' unless defined($file_name);
open(my $fh, '<', $file_name) or die "Can not open file: $!";

local $PDL::undefval = -999;

my @pdls = rcols $fh, { COLSEP => "\t" };

foreach (@pdls) {
    print "$_\n";
}

exit;

##</code><code>##

[1 2 3 4 5]
[6 7 8 9 10]
[11 12 13 14 15]

##</code><code>##

[1 2 3 4 5]
[6 7 8 0 10]
[11 -999 13 14 15]