use List::Util 'shuffle';
my ($r1, $r2) = shuffle(1..10);