use warnings;
use strict;
use List::Util qw(shuffle);

for (1 .. 5) {
    my @nums = (shuffle(1 .. 100))[0 .. 1];
    print "@nums\n";
}