# loop for reading one column
open (BINM,"<:raw");
read (BINM,$number,64);
print OUTM "$number\t";
seek (BINM,64*$columns_number,1);


##</code><code>##

while (<MATRIX>) {
  chomp;
  my @numbers=split (/\t/,$_);
  # problem
}


##</code><code>##

[+-]?inf
NaN