use Graph::Undirected;
foreach my $ids (@list1){
    $g->add_path(@$ids);
)