#!/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);