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