#!/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;



}