#!/usr/local/bin/perl
# Prilusky, 2004
# working solution for ref_array0.txt

  @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";
}