#!/usr/bin/perl -w
use strict;

sub foo {
  my $array = shift;
  print join(",", @{$array}), "\n";
}

sub bar {
  my $array = shift;
  return reverse @{$array};
}

my @array = ('foo', 'bar', 'qux');

my @bar = bar( \@array );
foo( \@bar );