sub MyFunc {
    my $avMatrix= shift(@_);
    my $packedMatrix= "";
    my @recycleBin;
    my $width= @{ $avMatrix->[0] };
    for my $avRow (  @$avMatrix  ) {
        $width= @$avRow   if  @$avRow < $width;
        my $packedRow= pack("f$width",@$avRow);
        push @recycleBin, \$packedRow;
        $packedMatrix .= pack("p",$packedRow);
    }
    return MyFuncC( 0+@$avMatrix, $width, $packedMatrix );
}