@m = list();
$l = shift @m; # $l = $#foo+1
@z = @m[0..$l-1]; # @z = @foo
@e = @m[$l..$#m]; # @e = @bar
sub list {
 @bar=('vodka', 'tulips', 'demons');
 @foo=('dicnk', 'dsiknvxdx', 'DAEMON!');
 return scalar(@foo), @foo, @bar;
}
[download]