Help for this page
node1 node2 weight status 23 34 -897 1 24 46 -10 0
use BerkeleyDB; use MLDBM qw(BerkeleyDB::Hash Storable); ... push @{$seqRelation[$seq2]}, join(',', $seq1, $w, $s); } ......