if ($ARGV[3] ne "") {
	$file1 = $ARGV[0];
	@list1 = split (/,/, $ARGV[1]);
	$file2 = $ARGV[2];
	@list2 = split (/,/, $ARGV[3]);
}
else { print "Enter all required parameters"; }