I dont know how to write it so it generates the numbers in pairs however.

In your loop, call the RNG twice:

for (1 .. 500)
{
    my $x = rng();
    my $y = rng();
    ...
}
[download]