@returned_files = match_files(\@array, \%hash);

##</code><code>##

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

##</code><code>##

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