#!/usr/bin/perl -w
use strict;
sub showArray(\@)
  {
  my(@arr) = @{(shift)};
  my($temp);
  foreach $temp (@arr) { print "$temp\n"; }
  }
sub higherLevel(\@)
  {
  my(@arr) = @{(shift)};
  showArray(@arr);

  }

my(@arr) = ("one","two","three");
higherLevel(@arr);

##</code><code>##

#!/usr/bin/perl -w
use strict;
sub higherLevel(\@)
  {
  my(@arr) = @{(shift)};
  showArray(@arr);
  }
sub showArray(\@)
  {
  my(@arr) = @{(shift)};
  my($temp);
  foreach $temp (@arr) { print "$temp\n"; }
  }
my(@arr) = ("one","two","three");
higherLevel(@arr);