#!/usr/bin/perl -w
##
## Programmer:    Craig Stuart Sapp <craig@ccrma.stanford.edu>
## Creation Date: Fri Jul 23 04:43:31 PDT 1999
## Last Modified: Fri Jul 23 04:43:36 PDT 1999
## Filename:      /home/httpd/html/perl/examples/passarray
## Syntax:        Perl 5
##
## Description:   A demonstration of how pass an array as a parameter
##                to a subroutine.
##

@array = ("a", "b", "c", "d", "e", "f");
$text = "text";

printarray(\@array, $text);


sub printarray {
   my ($array, $var) = @_;

   print "var = ", $var, "\n";
   print "array = ", "@array", "\n";
}