Select Code to Download

sub ret_list {
    return $_[0..$#_];
}

sub ret_slice {
    return @_[0..$#_];
}

# the data
our @zot = qw(apples Ford perl Jennifer);

...
    my @bar = @_[0..2];
    return (wantarray()) ? @bar : "@bar";
}