Perl - [ Functions / Reference ]

#!/usr/bin/perl
use strict;
use warnings;

&a();

sub a{

        my @nome = ('ayres','andre');
        print "Rotina a antes: " , join ("\t",@nome) , "\n";
        &print_a(\@nome);
        print "Rotina a depois: " , join ("\t",@nome) , "\n";

}

sub print_a{

        my ($rA_teste) = @_;
        print "Antes push: " , join ("\t",@{$rA_teste}) , "\n";
        push(@{$rA_teste}, 'Mudim');
        print "Depois push: " , join ("\t",@{$rA_teste}) , "\n";

}
result 


$perl blog.pl 
Rotina a antes: ayres andre
Antes push: ayres andre
Depois push: ayres andre Mudim
Rotina a depois: ayres andre Mudim