use strict;    # Always!
use warnings;  # Always!

B(A());

sub A {
    my @array = qw(value_1 value_2);
    return \@array;
}

sub B {
    my ($array_ref) = @_;
    foreach my $i ( @{$array_ref} ) {
        print "Array Value: $i \n";
    }
}