#!/usr/bin/env perl -l

use strict;
use warnings;

my ($letters, $digits) = get_arrays();

print "Letters REF: $letters";
print "Letters: @$letters";
print for @$letters;
print "Digits REF: $digits";
print "Digits: @$digits";
print for @$digits;

sub get_arrays {
    my @three_letters = qw{A B C};
    my @three_digits = qw{1 2 3};
    return (\@three_letters, \@three_digits);
}

##</code><code>##

Letters REF: ARRAY(0x7ff684047ad0)
Letters: A B C
A
B
C
Digits REF: ARRAY(0x7ff684047938)
Digits: 1 2 3
1
2
3