#!/usr/local/bin/perl
# Prilusky, 2004
# see ref_array1.txt for a working solution

  @days = qw (Sun Mon Tue Wed Thu Fri Sat);
  @months= qw (Jan Feb Mar Apr May Jun Jul Ago Sep Oct Nov Dec );

  printOneArrayElements(@days);
  print "\n";

  printTwoArraysElements(@days,@months);
  print "\n";

sub printOneArrayElements {
  my(@a) = @_;
  print "sub printOneArrayElements\n";
  foreach $word (@a) {
    print $word," ";
  }
  print "\n";
}

sub printTwoArraysElements {
  my(@a,@b) = @_;
  print "sub printTwoArrayElements\n";
  print "First array:  ";
  foreach $word (@a) {
    print $word," ";
  }
  print "\n";
  print "Second array: ";
  foreach $word (@b) {
    print $word," ";                                                                     
  }
  print "\n";
}