use strict;
use warnings;

sub getStuff { return 6, qw(one two three four five six) }

my ($thing, @list) = getStuff();

print "my thing is $thing\n";
print "my list is @list\n";


##</code><code>##

$ perl list.pl
my thing is 6
my list is one two three four five six