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