(Perl) Retrieve random lines from a file