#!/usr/bin/perl

A();
B();

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

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