Apologies. here is the missing bit
Input file looks like (space delimited)
a b c
d e f
h i j
k l j

File reader code

       my ($in,$KKK);
       while( sysread(IN,$in,length(hello)) ) {
           $KKK .= $in;
       }
       my @R = map{ [ split /\s+/ ] }split /\n/, $KKK;
[download]

Hope this helps