#! perl -slw
use strict;
use constant { X=>0, Y=>1 };

my @pairs = map[ int( rand 1000 ), int( rand 1000 ) ], 1 .. 1000;

print join ' : ', $pairs[ 999 ][X], $pairs[ 999 ][Y];

print join ' : ', @{ $pairs[ 500 ] };

__END__
C:\test>junk22
935 : 575
669 : 471