# my $packedRow= pack("f$width", @$avRow);
 my $packedRow= pack("i$width", @$avRow);

##</code><code>##

# $packedMatrix = pack("p", $packedRow);
 $packedMatrix .= pack("P", $packedRow);