print "\n", $line, " ", rand $array[ $i ], "\n";