sub remove_pattern_from_array {
	my $pattern = shift (@_);
	my @holder_array = qw//;
	foreach my $line (@_){
		unless ($line =~ /$pattern/){
			push (@holder_array, $line);
		}
	}
	return @holder_array;
}