#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

sub get_a_list {
    return qw(first mid last);
}

sub get_an_array {
    my @a = qw(first mid last);
    return @a;
}

my $a = get_a_list();
say "\$a: $a";
my $b = get_an_array();
say "\$b: $b";