#!/usr/bin/perl

use strict;

sub create_array {
        my @array;

        push @array, ('1', '2', '3', '4');

        return \@array;
}

sub parse_array {
        my $array = create_array();

        foreach (@{$array}) {
                print $_,"\n";
        }
}

parse_array();


% ./array.pl   
1
2
3
4