my @lines = <FILE>;
    print splice( @lines, rand @lines, 1 ) while @lines;

##</code><code>##

    @order = qw( 17 4 23 7 12 19 8 0 16 9 21 1 14
                 15 6 11 20 3 2 24 5 13 18 10 22 );
    print @lines[ @order ]