#!/usr/bin/perl -w

use strict;

sub ret_array
{
    my @array = qw( 1 2 3 4 5 );
    return \@array;
}

my $returned_array = ret_array();
print @$returned_array;