use Smash::Utils::MatrixIO qw(:all); my $SMASH_overlap_file="$CDHIT_file.smash.overlap"; write_R_matrix($SMASH_overlap_file,$overlap);