use Data::Dumper; print Dumper( \%verts , \@edge, \@queue);