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