#!/bin/perl
##################################################
# Examples with Lists
##################################################

##################################################
# Variable Declarations
##################################################

my @csprofs;
my @bioprofs;
my @allprofs;

##################################################
# The MAIN part of the program
##################################################

@csprofs = ("Travis", "Mike");
@bioprofs = ("Dan");
@allprofs = (@csprofs,@bioprofs);

print "\@csprofs: @csprofs\n";
print "\@bioprofs: @bioprofs\n";
print "\@allprofs: @allprofs\n";

$numprofs = @allprofs;

print "\$numprofs = $numprofs\n";

print "Begin foreach:\n";
foreach $name (@allprofs) {
   print $name, "|";
}
print "\n";

exit;                    # End program