sub higherLevel
{
  my(@arr) = @_;
  showArray(@arr);
}
sub showArray
{
  my(@arr) = @_;
  foreach my $temp (@arr) { print "$temp\n"; }
}
my(@arr) = ("one","two","three");
higherLevel(@arr);