#!/usr/bin/perl 
use strict;
use warnings;
use Data::Dumper;

sub make_them {
    my $var = 1;
    my @array = qw(a b c);
    return ($var, \@array);
}

sub use_them {
    my ($var, $array_ref) = @_;
    print Dumper($var, $array_ref) . "\n";
}


while ( 1 ) {
    my ($var, $array_ref) = make_them();
    use_them($var, $array_ref);
    last; # demo
}