#!/usr/bin/perl

# Function return values

$return_value = function_with_return(1, 1);
print "Return Value = $return_value\n\n";

@names = ('Doug', 'Tom', 'Randal', 'Larry');
@return_value = function_with_returns(1, @names);
print "Sorted names: " . join(', ', @return_value) . "\n\n";

@return_value = function_with_returns(0, @names);
print "Reverse sorted names: " . join(', ', @return_value) . "\n\n";

# function_with_return #########################################################

sub function_with_return
{

  ($num1, $num2) = @_;

  return $num1 + $num2;

} # END: function_with_return

# function_with_returns ########################################################

sub function_with_returns
{

  $ascending = shift;

  if($ascending)
  {

    return sort(@_);

  }
  else
  {

    return reverse(sort(@_));

  }

} # END: function_with_returns