#!/usr/bin/perl -w
use strict;

$|=1;
my @nodes;

for (1 .. 3000) {
    push @nodes,{ number => $_ };
    print "\r$_" unless $_ % 1000;
}

my @edges;
for (0 .. 2500000) {
    push @edges,{ s => \ $nodes[$_ % 3000], d => \ $nodes[3000 - $_ % 3000] };
    print "\r$_" unless $_ % 1000;
}

print "\ndone, press enter to exit";
my $dummy = <STDIN>;