foreach my $line (@jobDef) {
   			chomp($line);
   			$line =~ s/\s+$//g;
			switch ($line) {
				case (/DOCOMMAND/) {
					$line =~ s/\s+$//g;
					#This key word is used for bianry commands; It is mutually exclusive with SCRIPTNAME
					$command = substr($line, 11);
					$stmnt{ $command } = "UPDATE twsJobs SET command = ? WHERE jobId = ?"; 
				}
				case (/SCRIPTNAME/) {
					#This key word is for scripts; It's mutually exclusive with DOCOMMAND
					$command = substr($line, 11);
					$stmnt{ $command } = "UPDATE twsJobs SET command = ? WHERE jobId = ?";
				}
...