use List::Util qw( shuffle );

my $n = 0;
my @pairs = map { [$n++, $_] } shuffle( 0..99 );