And how are we supposed to reproduce your results? Try adding

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

How (Not) To Ask A Question