sub delArrayEntry() {
	my @array1 = @_;
	my @array2 = "";

	foreach $entry (@array1) {
		if ($entry ne $current_log) {
			push @array2,$entry
		}
	}
}