my $ret_val = (@array, 1);