sub foo {
  my @array = ( 0 .. 100 ); # create a new array
  bar(\@array);             # pass it to bar() by reference
}

sub bar {
  my $array_ref = shift;    # get reference to foo()'s array
  foreach (@$array_ref) {   # print out each value
     print;
  }
}