open THIS_FILE, "+<$listOption" or die "ERROR: SearchFile: $!";
	while (<THIS_FILE>) {
		if (/^$genre\t\d$/) {
			seek(THIS_FILE, -2, 1) or die;
			print THIS_FILE $option;
			seek(THIS_FILE, 1, 1) or die;
		}
  	}
close THIS_FILE;