Select Code to Download

#! /usr/bin/perl
use warnings;
...
$edges{2 + $_} = {1 => $LABELS[$_]} for 0 .. $#vertices - 1;

add_edge(\%edges);