#!/usr/bin/perl -w 
use strict; 

use Tie::File; 

my @lines;
my $o = tie @lines, 'Tie::File', 'somefile.txt' or die $!;

print "$lines[rand @lines]\n" for 1..10;