Perl: Passing array reference to another function

Giving an example of array reference handling in Perl. The example is well commented and if you go through the comments and codes, you'll understand how to handle reference passing. At below example, the main function creates an array with 3 elements and pass the array reference into an intermediate function which will add another three values into the array using the reference. Finally from the main function, again the array passed to another intermediate function to print the 3+3=6 elements using reference.

use strict;

function_main();

## say this is a main function
sub function_main{
    ## Initial array with few elements
    my @array = qw(1 2 3);
    ## Pass the array reference to another function for add few elements
    function_add_elements(\@array);
    ## Print the array from another function which takes array reference
    function_print_array(\@array);
}

## This function takes an array reference
## and add 3 values with the reference
sub function_add_elements{
    my $array_reference = shift;
    ## adding few values
    push(@$array_reference, 4);
    push(@$array_reference, 5);
    push(@$array_reference, 6);
}

## This function takes an array reference
## and print the elements from the array reference
sub function_print_array{
    my $array_reference = shift;
    ## take each elements from array into $element variable
    foreach my $element (@$array_reference){
        print "$element\n";
    }
}

For more Perl related post see here http://icfun.blogspot.com/search/label/perl