open FILE, "<$file" or die "Could not open $file: $!\n";
@array=<FILE>;
close FILE;
$randomline=$array[rand @array];