#!/usr/bin/perl
use strict;
my $a;
$a=&min(23,66,77,89);
print "The minimum value is $a\n";
$a=&min(30,20,77);
print "The minimum value is $a\n";
# we assume there is at least 1 parameter;
sub min
{
my $i;
my $least;
$least=$_[0] ;
#set least to the first value
for($i = 1 ; $i <=$#_ ; $i++)
{
if ($_[$i] < $least)
{
$least=$_[$i];
}
}
$least; #return
the minimum value;
}