my $file = $matrixPath.'/'.$info{$transcriptName}{'PATH'}; my $fileSize = -s $file; open IN, $file or die "Can't open inputfile $file $!"; binmode(IN); my $buffer; my $nRows = $info{$transcriptName}{'CNT'}; print "reading file $file with size $fileSize with nCols $nCols and nrows $nRows\n"; while ( my $read = sysread(IN, $buffer, $fileSize)) { my ($data) = unpack("C*", $read); print " data is ".Dumper $data; print sprintf("%08b", $data)."\n"; } close IN;