# Get two variables back, by reference
my ($one_ref, $two_ref) = get_two_arrays();

my @one = @$one_ref;
my @two = @$two_ref;
print "First: @one\n";
print "Second: @two\n";

sub get_two_arrays() {
    my @array1 = ("a", "b", "c", "d");
    my @array2 = (1, 2, 3, 4);
    return (\@array1, \@array2);
}