use strict;
sub higherLevel(\@);
sub showArray(\@);

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);