1.	sub checkNumber($)
2.	{
3.	        my ($l_number) =  @_;
4.	        my $l_status;<br>
5.	        my @matches= grep { /$l_number/ } @numbers;
6.	        if  (@matches) {
7.	                $l_status="TRUE";
8.	        }
9.	        else {
10.	                $l_status="FALSE";
11.	        }
12.	        return $l_status;
13.	}