sub ret_array {
    return @_;
}

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