my @file = <$fh>;
print $file[int rand $#file];