Help for this page

Select Code to Download


  1. or download this
        my @lines = <FILE>;
    print splice( @lines, rand @lines, 1 ) while @lines;
  2. or download this
        @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 ]