#!/usr/bin/perl

# Function arguments

basic_function();

$arg1 = 'arg 1';
function_with_2_args($arg1, 'arg 2');

@args = (0, 1, 2, 3, 4, 5);
function_with_args(@args);

better_function_with_args(@args);

# basic_function ###############################################################

sub basic_function
{

  print "This is a basic function.\n\n";

} # END: basic_function

# function_with_2_args #########################################################

sub function_with_2_args
{

  ($arg1, $arg2) = @_;
  # $arg1 = shift;
  # $arg2 = shift;

  print "Argument 1 is <$arg1> and argument 2 is <$arg2>.\n\n";
  

} # END: function_with_2_args

# function_with_args ###########################################################

sub function_with_args
{

  foreach $argument_number (0..$#_)
  {

    print "Argument $argument_number is <$_[$argument_number]>.\n";

  }

  print "\n";

} # END: function_with_args

# better_function_with_args ####################################################

sub better_function_with_args
{

  @arguments = @_;

  foreach $argument_number (0..$#arguments)
  {

    print "Argument $argument_number is <$arguments[$argument_number]>.\n";

  }

  print "\n";

} # END: better_function_with_args