open(FILE,$FILEVARNAME);
While(<FILE>){
  (/^\s*$/) and next;
  chomp $_;
  push(@array,$_);
}
close(<FILE>);
$SIZE=@array;

$select = rand($SIZE);
print @array[$select];