for my $chosen (@CHOICE) {
      if ($_ =~ /\-\-/  || $_ =~ /\;/){  
	print "There is a possible injection attack here"; ## Security function here
	die;
      }