#!/usr/bin/perl
use warnings;
use strict;
use PDL;
use PDL::IO::Misc;

my $z  = rcols *DATA;
print "$z\n";

print $z->at(1);
print "\n";

__DATA__
101 
69 
42 
10042 
99