use List::Util qw/shuffle/; print join " ", shuffle(0 .. 24), "\n" for 0 .. 9;