#!/usr/bin/perl

use strict;
use warnings;

my @ignore;

@ignore = (
	'God',
	'Gregory'
);

##  need a count() subroutine
sub count {

	my $var;
	my $count = 0;
	
	foreach $var (@_) {
	
		$count = $count + 1;
		print "Here\n";
	
	}
	
	return $count;

}

##  need an in_array subroutine
sub in_array {

    my $val = shift(@_);
 	my $elem;
 
    foreach $elem(@_) {
	
        if( lc($val) eq lc($elem) ) {
		
            return 1;