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