spit_sample.pl

   1 #!/usr/bin/perl
   2 my @lines = <>;
   3
   4 foreach my $i ( 1..20 ) {
   5     $length = scalar( @lines );
   6     $idx = int rand ($length);
   7     print $lines[$idx];
   8     splice(@lines,$idx,1);
   9 }