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