#!/usr/bin/perl

my (@setOfnumbers);

@setOfnumbers = ( 9, 7, 90, 3, 8, 412, 67, 2, 45, 53, 1, 3,89 );


print "Finding maximum number iteratively ", 
getMaximumNumber(@setOfnumbers) , "\n";
print "Finding maximum number recursively ", 
findMaximumNumber(@setOfnumbers) , "\n";

#Finding maximum number iteratively
sub getMaximumNumber{
	my ($maximumNumber);
	 $maximumNumber = @_[0];
	foreach(@_){
		if ($_ > $maximumNumber){
			$maximumNumber = $_;
		}
	}
	return $maximumNumber;
}


#Finding maximum number recursively
sub findMaximumNumber{
	
	my ($maximumNumber);
	
	if (@_ == 1){
		$maximumNumber = shift(@_);
		return $maximumNumber;
	}
	else{	
		$maximumNumber = shift(@_);
		return (findMaximumNumber(@_) > $maximumNumber) 
		? findMaximumNumber(@_) : $maximumNumber;
	}
		
}