#!/usr/bin/perl

&print_args("One", "Two", "Three");

sub print_args
{
  $i = 1;
  foreach $arg(@_) 
  {
    print "Argument $i is $arg.\n";
    $i++;
  }
}

# This prints:
# Argument 1 is One
# Argument 2 is Two
# Argument 3 is Three