note sauoq <p>Here's an implementation of the suggestion I made in my reply to [Corion]... <code> #!/usr/bin/perl -w use strict; use Tie::File; use List::Util qw( shuffle ); tie my @file, 'Tie::File', $ARGV[0] or die "$ARGV[0]: $!"; print $file[$_], "\n" for shuffle 0 .. $#file; </code> Short and sweet. :-) </p> <div class="pmsig"><div class="pmsig-182681"> <pre> -sauoq "My two cents aren't worth a dime."; </pre> </div></div> 303841 303841