use strict;
use warnings;

sub someFunction { return @{$_[0]} }

my ($var1, $var2, $var3);
my $var4 = [qw(1 2 3 4)];

($var1, $var2, $var3, $var1) = someFunction($var4);


print "$var1 $var2 $var3\n";



OUTPUT: 4 2 3