#! /usr/bin/perl

use strict;
use warnings;

my $AVE_FOLLOWERS = 100;

for (my $i = 0; $i < 2 * 10000 * $AVE_FOLLOWERS; $i++) {
    my $user_id = int(rand(1000) ** 1.5) + 1;
    next if $user_id > 10000;
    my $follower_id = int(rand(1000) ** 1.5) + 1;
    next if $follower_id > 10000;
    print "insert ignore into follower values ($user_id,$follower_id);\n";
}