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";