sub min {
	my @num = @_;
	my $min;
	...
	return $min;
}